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1.0 Summary 


r^lp L a e r RC aiirt C “ rrently i d . ev ® 1 oping a Fortran based model of a complete NEP 

I ^ 

convers ion "systems !* aVS *° generated P^ametric models of Brayton power 

S»3ES^Hs'“"“ 

mpie (empirically based) algorithms to provide reasonable pstimatoc nf 
size a " d P er ^ ormanc e levels. Real is tic ope^ so 

imposed on geometry, temperature, and speeds of system components. 

The generator design algorithm defines a family of RW TPTL PMGs Trina-wound two- 
pole toothless permanent magnet generators] suitable for NEP applications Thp 

? ra r nt?cioaL d d e ; e F P P r d fr ° m f a Series ° f P ° 1nt designs and trade P studies°spanning 
tne anticipated NEP range of requirements. K y 

I^tPnHpHTn^ 3 ^ P ackage " as P^Pared by Rocketdyne and Allied Signal and is 

software " rittcp ,n suppprt 

Ii?ur?atp^ a9 In S d UP o P u\^ i d S a C ta mP fV, S e ed 

source codes; BRAY1.F0R, BRAV2.F0R, and BRA Y3. FOR. The source codes compiled 
oSckaa^^ThP^rnH^^’ f ° r V he executable BRAYTON.EXE code included i n P the 

Se^ dp ;z 

at? .W?* My^ fflT MSS 

the code output based on the input contained in the above input data fills! 

Ind varlJh S if nn0tate ? t hr ° U9 i 0Ut ’ Providing key information on methodolgy, units 
tht nomenclature where appropriate. Appendix A provides a listing of 

the global nomenclature used in the Brayton System model/ Local nomenclature 

Apj^dix B 6 3 $in9le r ° Utine ’ i$ f ° Und in the code lutings included i ts 

A complete listing of BRA Y1 FOR, BRAY2.F0R, and BRAY3.F0R is included in Appendix 

IHXSInV and DLJrTtTNPW^ 1 1 ^ t . in 9 of fl the j n P0t data files (CYCJINP, RECSINP, 
fromthl ^ h DUCTSINP) is provided in Appendix C. Two output (PR0G$0UT) examples 

Intm.w de haVe been P rovide< ? in Appendix D and E. Appendix D contaiins P the 
output from a non-recuperated axial turbine/compressor case at 500 kWe ADDendix 

^ Z t i° UtpUt , fr ° m k recu P e ^ ated radial turbine/compressor case K 500 

k 6S hav ®. been Provided as examples only and do not represent 
systems that have been optimized in any way. The computed parameters selected 
for output in PR0G$0UT represent a fraction of the computed parameters^ a 
from the code The overall integrator of the codes has the option £f Sslna anv 
the parameters computed by the code when developing the overall code output. 



It should be noted that the code without exception, 

assuming "engineering units . P immediately converts the input to 

code reads the input data T the example output data file, the 

"engineering units" ^ d col JP ut s a I t units 1 The parameters to be printed were 
output has been provided in i SI units. v f t0 printing (or writing 

*?. ;^rh\ e v r e’ n b 9 ee:;r 5 ov^ed SI through J out the code to indicate the units 
that are in use. 

^UTpiit“cdSn 9 T?id. d1! 


the code. 
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2.0 Brayton Power Conversion Modelling 

2.1 Introduction 

The parametric design code is a system-level analysis which generates a 
thermodynamic cycle and companion parametric system/component designs based on 
specified input design variables. The code is. particularly well suited to 
performing scoping evaluations and preliminary system-level parametric 
optimization. 

The code, as currently configured, allows design of Brayton machines using Noble 
gases or any binary mixture of Noble gases, as the working fluid. However, the 
ducting and intermediate heat exchanger are currently configured to use only 
helium and xenon or any mixture of He/Xe. The ducting and intermediate heat 
exchanger codes would need to be upgraded in order to run the system code with 
a working fluid other than helium and xenon. 

The thermodynamic and heat transfer internal structure of the code is fairly 
rigorous. Component design algorithms are somewhat less sophisticated due to the 
broad range of requirements and options available. The code is, by virtue of its 
thermodynamic central structure, highly amenable to refinement and added 
sophistication as specific NEP mission and requirements are defined. 


2.2 Parametric Design Code Description 

The structure of the parametric design code, as shown in Figure 1, has been 
divided into three functional groups of modules; 1) Data Input/Setup Module, 
2) Thermodynamic Module, and 3) Post Processor/Output Module. A description 
for each functional group of modules is provided in sections 2.2.1 - 2.2.3, 
respectively. Section 2.2.4 gives the details of the generator algorithm 
development. 


2.2.1 Data Input/Setup Module 

The deliverable software package is supplied with a temporary "mainline" program 
for use during familiarization and checkout. This code [Program MANE] can be 
replaced when integrating the routines into the overall system level code. 

- Opens PR0G$0UT if IPRINT.GE.O 

- Provides for the input of data from data files 

- Calls BRAYTON subroutine 

The code requires four small input data files; CYC$INP, REC$INP, IHXSINP, and 
DUCTSINP. The input data file CYC$INP contains the required cycle and 
turbogenerator-compressor information. The input data file REC$INP contains the 
recuperator core description. When the code is run without recuperation, the 
REC$ INP file is not required. The input data files IHX$INP and DUCT$INP contain 
the required Intermediate Heat Exchanger (IHX) and ducting descriptions, 
respectively. 
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2. 2. 1.1 Thermodynamic Definition/CYC$INP Input Data File 

As currently structured, a total of about twenty major independent variables are 
defined to establish a cycle description. These values are defined in input data 
file, CYC$INP. As an example, a listing of the CYC$INP data file is provided in 
Table 1. 


Table 1. CYC$ INP - Input data file for cycle data 


500 kWe 

CBC Test 

Case for 

NASA T018 

Code - 5 December 92 



1 

500. 

.9 

1400. 

2.5 

1144.44 



RADIAL 

RADIAL 

RING WOUND TPTL 

PMG TRANSFORMER 

DOWTHERM 

A 

XENON 

HELIUM 

.5 

511.11 

522.22 

.0 

.0 


5. 

.005 

.01 

.01 





Tl, K 

PRC 

MW 

ER 

NSC 

N, RPM 

DP/P6 

DP/PREC 

DP/P8 

DP/P9 

DP/P10 

DP/P13 

DP/P15 

DP/P16 

DP/P17 


375. 

1.8 

20. 

.85 

42. 

28000. 

.005 

.02 

.005 

.002 

.003 

.003 

.005 

.005 

.005 



The data contained in input file, CYC$ INP , is read in as follows: 


READ (60,10) (CYCDES(I), 1=1,8) 

READ (60,20) IPRINT, POWER, PWRFCTR, VOLTAGE, GENASP,XTEMP(9) 

READ (60,30) COMPTYPE , TURBTYPE , GENTYPE , INTTYPE, CLNTTYPE 
READ (60,40) GAS(l) ,GAS(2) ,CPCLNT,XTINCLNT,XTOUTCLNT,XBLC,XBLT 
READ (60,50) LIFETIME, FCTQ8,FCTQ10,FCTQ13 
READ (60,10) (TVAR(I), 1-1,15) 

READ (60,50) (VAR(I) , 1=1,15) 

10 FORMAT (8A10) 

20 FORMAT ( 15 , 5X , 5E10 . 3 ) 

30 FORMAT (2A10,2A20,A10) 

40 FORMAT (2A10, 5E10 . 3) 

50 FORMAT (8E10.3) 


Table 2 contains input value nomenclature and recommended ranges for the prime 
cycle independent variables. 


5 


Table 2 

Input Data File: CYC$INP Nomenclature 


Variable 

Variable 

Description 

Recommended 

Name 

Type 


Range 

CYCDES(8) 

8*CH*10 Title for the series of cases being run. 

N/A 

IPRINT 

INTEG 

Key denoting output, if any, desired. 

0-3 

POWER 

REAL 

Generator output per PCU, kWe 

50-5,000 

PWRFCTR 

REAL 

Output power factor 

,8-1.0 

VOLTAGE 

REAL 

Line-to-line output voltage, Volts 

1,000-10,000 

TEMPO) 

REAL 

Heat source discharge temperature, K 

830-1500 

GENASP 

REAL 

Generator rotor aspect ratio[l/d], dmls 

2-3 

COMPTYPE 

CH # 10 

Compressor type, 'AXIAL' or 'RADIAL' 


TURBTYPE 

CH*10 

Turbine type, 'AXIAL' or 'RADIAL' 


GENTYPE 

CH*20 

Generator type, 'RING WOUND TPTL PMG 


INTTYPE 

CH*20 

Electrical interface type, 'TRANSFORMER' 


CLNTTYPE 

CH*10 

Coolant description [descriptive only] 

'ANY DESCR' 

GAS(2) 

2*CH*10 Gas(es) used in cycle, options are: 

'HELIUM' 



'NEON' 

'ARGON' 

'KRYPTON' 

'XENON' 


CPCLNT 

REAL 

Specific heat of coolant, cal/gm-K 

.3-. 7 

TINCLNT 

REAL 

Coolant inlet [turboaltl temp, K 

510 max 

TOUTCLNT 

REAL 

Coolant exit [turboalt] temp, K 

525 max 

XBLC 

REAL 

Working fluid bleed from SP#4 to #3, tract of 
compressor flowrate, dmls 

0-.02 

XBLT 

REAL 

Working fluid bleed from SP#4 to #13, tract of 
compressor flowrate, dmls 

0-.02 

2-10.0 

LIFETIME 

REAL 

Full power lifetime, years 

FCTQ8 

REAL 

Thermal loss fraction of heat into cycle 
lost from HSA inlet duct 

0-.03 

FCTQIO 

REAL 

Thermal loss fraction of heat into cycle 
lost from turbine inlet duct 

0-.03 

FCTQ13 

REAL 

Thermal loss fraction of heat into cycle 
lost from turbine discharge duct 

0-.03 

TVAR04) 

14 # CH* 

10 Variable name for subscripted variable: 


i = 1 

T1 - Compressor inlet temperature, K 


2 

PRC - Compressor T-T pressure ratio [47V] 


3 

MW - Working fluid molecular weight, gm/gm-mole 


4 

ER - Recuperator cold-side temp effectiveness, dmls 


5 

NSC * Compressor specific speed, rpm- 


6 

N - rotating speed, rpm 


7 

DP/P6 - 

Fractional pressure loss, compressor disch duct 


8 

DP/PREC - Recuperator total fractional pressure loss, both sides 

9 

DP/P8 - 

Fractional pressure loss, HSA inlet duct 


10 

DP/P9 - 

Fractional pressure loss, HSA 


11 

DP/PI 0 

- Fractional pressure loss, turbine inlet duct 


12 

DP/PI 3 

- Fractional pressure loss, turbine disch duct 


13 

DP/PI 5 

- Fractional pressure loss, HRA inlet duct 


14 

DP/PI 6 

- Fractional pressure loss, HRA 


15 

DP/PI 7 

- Fractional pressure loss, compressor inlet duct 


VAR{1 5) 

REAL Value of subscripted variable 

ii 

n 

ii 

ii 

ii 

n 

ii 

ii 

it 

ii 

ii 

ii 


6 



A consistent set of statepoint locations was established for use throughout the 
parametric design code and to facilitate integration of Rocketdyne and NASA 
support routines. Figure 2 shows a fundamental cycle schematic for a closed 
Brayton system using an auxiliary cooling loop. A total of seventeen statepoints 
were needed to adequately characterize the configuration options possible with 
the code. Some statepoints are relevant to only radial flow turbomachines and 
their secondary flows and intermediate pressure levels. 

Table 3 also summarizes the statepoint locations with descriptive text. The 
statepoint location numbers are consistent with all code annotation used 
throughout the deliverable package. 


Table 3. Brayton Statepoint Locations 


Statepoint Location 

# 1 - Compressor Inlet 

# 2 - Compressor Rotor Tip [static pressure] 

#3 - Compressor Diffuser Inlet 

# 4 - Compressor Diffuser Exit [comp-end bleed flow added] 

# 5 - Compressor Stage Exit [comp-end bleed flow removed] 

# 6 - Recuperator High Pressure Flow Inlet 

#7 - Recuperator High Pressure Flow Discharge 

#8 - HSA Inlet 

#9 - HSA Discharge 

# 10 - Turbine Inlet 

# 11 - Turbine Nozzle Exit 

# 12 - Turbine Discharge 

# 13 - Recuperator Low Pressure Flow Inlet [turb-end bleed flow added] 

# 14 - Recuperator Low Pressure Flow Discharge 

# 15 - HRA Inlet 

# 16 - HRA Discharge 

# 17 - Compressor Inlet Duct Exit [= to Statepoint #1] 

Notes: 

1) Total [stagnation] conditions except as noted. 

2) Statepoints # 2, 3, 4 are relevant with radial compressor 

3) Statepoints # 11 is relevant with radial turbines only 




DP0P13 

RECUP 



(x) State point no. identification 
/x\ Duct no identification 
DPOPx Duct pressure drop variable name 

Figure 2. Brayton System Statepoint Locations 
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2.2. 1.2 Recuperator Input/REC$INP Input Data File 

Subroutine RECINP performs the input function for the recuperator heat transfer 
matrix definition. RECINP reads data file RECSINP to establish the physical 
geometry and properties of the specified heat transfer structure. The routine 
assumes that a compact rectangular offset fin matrix is used. RECINP calls 
subroutine RCTFIN [rectangular fin]. RECINP also provides formatted output 
capability and prints to filename: PROGSOUT when keyed by variable IPRINT >=1. 

Subroutine RCTFIN computes specific geometric parameters related to heat transfer 
calculations for rectangular plate-fin heat exchanger matrices. Included are 
parameters such as hydraulic diameters, flow: frontal area ratios, surface 
areas:unit volume ratios, etc. 

The RECSINP data file establishes the physical geometry and properties of the 
specified heat transfer structure. An example RECSINP data file is given in 
Table 4 showing the structure of the data file and its contents. 

Table 4. Example RECSINP Data File 


PI ate 

Fin Recuperator; Kays & 

London Matrix, Exponent=.615 

.615 

.15 .15 

.15 .15 


6.3 

.0127 .3175 

.1524 8.03 

22.14 

7.87 

.0127 .2540 

.1206 8.03 

22.14 


.0254 

8.03 



.00381 

8.03 



The first line in the data file contains the recuperator description. The code 
will accept up to an 80 character description. 

The second line of the data file contains the following information as read from 
left to right: 

1) Prandtl number exponent (dimensionless) 

2) Heat transfer area margin, low pressure side (dimensionless) 

3) Pressure drop margin, low pressure side (dimensionless) 

4) Heat transfer area margin, high pressure side (dimensionless) 

5) Pressure drop margin, high pressure side (dimensionless) 

The third line of the data file contains the following information as read from 
left to right: 

1) Number of fins/cm, low pressure side (cm 1 2 3 4 5 6 ) 

2) Fin thickness, low pressure side (cm) 

3) Fin spacing, low pressure side (cm) 

4) Equivalent fin length, low pressure side (cm) 

5) Density of fin material, low pressure side (gm/cc) 

6) Thermal conductivity of fin material, low pressure side (W/m-K) 
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The fourth line of the data file contains the following information as read from 
left to right: 

1) Number of fins/cm, high pressure side (cm') 

2) Fin thickness, high pressure side (cm) 

3) Fin spacing, high pressure side (cm) 

4) Equivalent fin length, high pressure side (cm) 

5) Density of fin material, high pressure side (gm/cc) 

6) Thermal conductivity of fin material, high pressure side (W/m-K) 

The fifth line of the data file contains the following information as read from 
left to right: 

1) Thickness of the splitter plates (cm) 

2) Density of the plate material (gm/cc) 

The sixth line of the data file contains the following information as read from 
left to right: 

1) Thickness of the braze material (cm) 

2) Density of the braze material (gm/cc) 


2.2. 1.3 IHX Definition/IHX$INP Input Data File 

The IHX$ INP data file establishes the physical geometry and properties of the 
specified shell -and-tube heat exchanger system. An example IHX$INP data file is 
given in Table 5 showing the structure of the data file and its contents. 

Table 5. Example IHXSINP Data File 


1 226.8 1166.7 1111.1 .102 6.0 

14.4 .025 8.34 8.34 1.27 


The first line of the data file contains the following information as read from 
left to right: 


1 ) 

2 ) 

3) 

4 ) 

5) 

6 ) 


IHXflg - l=Lithium, 2=NaK 
XUEST1 - Initial value for U overall (W/m-K) 

XTHIN1 - Hot side inlet temperature, K 

XTH0UT1 - Hot side outlet temperature, K 
XTTUBE1 - Tube wall thickness, cm 
ANPLATES1 - Number of support plates 


The second line of the data file contains the following information as read from 
left to right: 


1) XAKTUBE1 - Tube wall thermal conductivity, W/m-K 
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2) XTINS1 

3) XDENINS1 

4) XDENSSH1 

5) XDTUBE1 


- Insulation thickness, cm 

- Bulk density of insulation, gm/cc 

- Density of shell, gm/cc 

- Inside diameter of heat exchanger tubes, cm 


2. 2. 1.4 Ducting Definition/DUCT$INP Input Data File 

The DUCTSINP data file establishes the physical geometry and properties of the 
ducting system. An example DUCTSINP data file is given in Table 6 showing the 
structure of the data file and its contents. There are six duct segments 
numbered as previously shown in Figure 2. The data file contains six columns of 
data, one column for each duct segment. It should be noted that, for a non- 
recuperated system, the data contained for duct segments 2 and 5 is not used. 
The data for duct segments 1 and 4 must be adjusted accordingly. 

Table 6. Example DUCTSINP Data File 


15.0 

60.0 

0.102 

4.43 
0.00 
0.0013 

5.54 

0.001 


15.0 

60.0 

0.102 

8.30 

100.0 

0.0013 

5.54 

0.001 


15.0 

60.0 

0.102 

8.30 

100.0 

0.0013 

5.54 

0.001 


15.0 

60.0 

0.102 

8.30 

100.0 

0.0013 

5.54 

0.001 


15.0 

60.0 

0.102 

4.43 

0.0 

0.0013 

5.54 

0.001 


15.0 

60.0 

0.102 

4.43 

0.0 

0.0013 

5.54 

0.001 


The data file contains eight rows of data. Row number 1 contains the L/D's of 
ducting assumed for each duct segment. Row number 2 contains the equivalent 
L/D's of elbows, etc, assumed for each duct segment. Row number 3 contains the 
duct wall thickness (cm) assumed for each duct segment. Row number 4 contains 
the material density (gm/cc) assumed for each duct segment. Row number 5 
contains number of layers of multi foil insulation (MFI) assumed for each duct 
segment. Row number 6 contains the thickness (cm) of the individual MFI layer. 
Row number 7 contains the material density (gm/cc) assumed for the MFI foils. 
Row number 8 contains the surface roughness factor assumed for each duct segment. 


2. 2. 1.5 Subroutine BRAYTON 

Subroutine BRAYTON is the coordinating "traffic control" code which directs the 
calling sequence of the support routines. BRAYTON is fundamentally the mainline 
program for a single PCU design with component sizing. A full nomenclature and 
statepoint summary is included in the code annotation for this routine. 

Subroutine BRAYTON is involved throughout all areas of the code, but performs the 
following activities associated with data input and setup: 
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1) BRAYTON provides initial values or zeros-out certain variables which are 
varied during the power output iteration. 

2) BRAYTON calls Subroutine SETUP which loads and aligns variables from the 
input array 

3) BRAYTON calls Subroutine GASPROP once per case to establish the 
constituency of the working fluid and the transport parameters to be used 
for property calculations. 


2.2. 1.6 Subroutine SETUP 

Subroutine SETUP exists as a convenience for managing cycle design variables 
which would commonly be involved in a parametric optimization of a Brayton 
system. As delivered, fourteen such parameters are described by the array value 
in VAR(i). The companion variable names are contained in the array TVAR(i). 

VAR(i) and TVAR(i) are read, or otherwise defined, by the mainline program. 
Currently these values are read in by MANE from input filename: CYC$INP. 
Subroutine SETUP simply loads the value contained in VAR(i) into the appropriate 
[recognizable] cycle variable. Subroutine SETUP also sets and/or initializes 
certain system pressure loss functions as required by the recuperation scheme. 
When VAR(4) [recuperator effectiveness] <= 0 the system is treated as non- 
recuperated which means that two of the six ducting pressure losses do not exist. 
When VAR(4) > 0 the recuperator pressure loss is divided by approximation between 
the two flow streams. 


2.2. 1.7 Subroutine GASPROP 

Subroutine GASPROP [gas properties] is called at the start of a new case to 
establish the constituent gases and mixture to be utilized for the cycle working 
fluid. The gas constituents are defined in filename: CYC$INP by variables 
GAS(2) . The molecular weight is defined by the value of VAR(3). GASPROP 
establishes the composition required to provide the specified molecular weight, 
the fluid specific heat [C p ], and the Lennard-Jones collision parameters to 
support calculation of transport properties during the analysis. The collision 
integrals to support subsequent calculations are loaded from DATA statements in 
GASPROP. 
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2.2.2 Thermodynamic Model 


Subroutine BRAYTON is the coordinating "traffic control" code which directs the 
calling sequence of the support routines. BRAYTON is fundamentally the mainline 
program for a single PCU design with component sizing. A full nomenclature and 
statepoint summary is included in the code annotation for this routine. 

BRAYTON calls Subroutine STATEPT which accomplishes the thermodynamic and most 
of the geometric definition of the conversion system. 


2.2.2. 1 Subroutine STATEPT 

Subroutine STATEPT performs basic thermodynamic calculations and sequences the 
use of component design routines. The functions accomplished by STATEPT [roughly 
in sequence presented] are: 

- Computes component pressure ratios 

- Call Subroutine GENSIZE 

- Initializes Comp Disch conds. based on first approx 

- Checks compressor specific speed value versus boundary 

- Initialize all flows based on compressor inlet flow 

- Initialize all system pressures based on compressor inlet pressure 

- Compute thermal losses 

- Compute all statepoint temperatures and enthalpies 

- Call GENSIZE get sizes, cooling load 

- Call BEARING define shaft power loss 

- Call WINDLOS define shaft power loss 

- Call AXCOMP or RADCOMP, define compressor geometry and performance 

- Call AXTURB or RADTURB, define turbine geometry and performance 

- Check convergence on power, scale system pressures if required 


2. 2. 2. 2 Subroutine BEARING 

This routine estimates the parasitic shaft power loss associated with the rotor 
suspension [bearing] subsystem. The routine estimates bearing loss equal to 2 
% of the gross generator terminal power. This value has proven to be reasonable 
in previous scoping studies in the higher power ranges. 


2. 2. 2. 3 Subroutine GENSIZE 

Subroutine GENSIZE provides accurate preliminary sizing and performance for a 
ring-wound two-pole toothless [RW TPTL] permanent magnet generator [PMG]. 
Generator mass and several key dimensions are estimated. This routine is 
identical to the routine developed to support potassium Rankine systems. The 
details of the generator algorithm development are provided in Section 2.2.4 and 
Appendix B. 

GENSIZE requires that rotating speed, power level, power factor, voltage, and 
rotor aspect ratio be furnished. All designs are limited to a maximum 700 ft/sec 
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rotor surface speed based on stress and magnetic design considerations. If the 
input results in surface speed in excess of 700 ft/sec, GENSIZE resets the 
rotating speed to a value which permits a design to be completed. 

GENSIZE will generate warning or error messages if out-of-limits operation is 
requested. GENSIZE source code is liberally annotated explaining all 
assumptions. 


2. 2. 2. 4 Subroutine WINDLOS 

Subroutine WINDLOS computes the parasitic shaft power loss predicted to result 
from the current generator design and operating conditions. The calculations are 
based on the methods presented in NASA TM X-67809 for rotating cylinders within 
a relatively smooth-bore cylinder. The constant and Reynolds No. exponent used 
in WINDAGE are fitted from Figure 6 in the reference TM X. 


2. 2. 2. 5 Compressor Parametric Design Routines 

Routines to support design of both axial and radial compressors are provided. 
The routine used is determined by the input variable COMPTYPE read from CYCSINP 
which denotes either "AXIAL'or'RADIAL' . 

Subroutine AXCOMP - Subroutine AXCOMP serves to provide sizing and performance 
estimates for a selected multi-stage, subsonic axial compressor. AXCOMP 
defines the inner and outer flowpath dimensions at the compressor inlet and 
outlet planes. The hub radius is assumed constant. 

The code operates in a manner to find the compressor design with the fewest 
number of stages which does not violate the geometric or Mach Number limits 
imposed. The specific limits imposed are: 

a) hub/tip radius ratios must be >= .60 

b) hub/tip radius ratios must be <= .95 

c) relative Mach No. must be <= .80 

If a solution is not found with 15 or fewer stages, an error message is 
generated and the adiabatic efficiency is set to 60 %. 

AXCOMP estimates the adiabatic efficiency of its design based a polytropic 
efficiency algorithm, a size correction, and a tip clearance loss correlation. 
Figure 3 shows Balje's correlation total -to-static polytropic efficiency for 
axial compressors versus specific speed. This efficiency correlation is for 
compressors with 2% [of blade height] clearance ratio and a Reynolds Number 
of 2 million. Figure 4 provides an efficiency multiplier which corrects for 
clearance ratios other than 2%. Figure 5 provides a Reynolds Number 
correction loss multiplier suitable for both radial and axial compressors. 

AXCOMP also computes the value of AN 2 [Flow Area (sq in) x Speed [rpm] 2 ] which 
is used to evaluate the centrifugal stress levels expected in the candidate 
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design. Maximum blade root stress is estimated using an algorithm. A limit 
of 30,000 psi mean root stress is assumed. Material density is consistent 
with Titanium alloys. The value of AN 2 is written to file: PR0G$0UT if keyed 
by I PRINT. 

Subroutine RADCOMP - Subroutine RADCOMP serves to provide sizing and 
performance estimates for a selected radial compressor design. 

RADCOMP estimates the adiabatic efficiency of its design based a polytropic 
efficiency versus specific speed algorithm, a Reynolds Number correction, a 
physical size correction, and a shroud clearance loss correlation. Figure 6 
show Balje's correlation total -to-static polytropic efficiency for radial 
compressors versus specific speed. This efficiency correlation is for 
compressors with 2% [of "B" width] clearance ratio and a Reynolds Number of 
2 million. Figure 7 provides an efficiency multiplier which corrects for 
clearance ratios other than 2%. Figure 5 is also used for radial compressors 
and provides a Reynolds Number correction loss multiplier suitable for both 
radial and axial compressors. The rotor tip speed is calculated and compared 
to limit values. Tip speed is also available to output through filename 
PROGSOUT. 


2. 2. 2. 6 Turbine Parametric Design Routines 

Routines to support design of both axial and radial turbine are provided. The 
routine used is determined by the input variable TURBTYPE read form CYC$INP which 
denotes either "AXIAL'or'RADIAL' . 

Subroutines AXTURB & STRNGTH - Subroutine AXTURB serves to provide sizing and 
performance estimates for a selected multi-stage axial turbine. AXTURB 
defines the inner and outer flowpath dimensions at the turbine inlet and 
outlet planes. The hub radius is assumed constant. 

The code operates in a manner to find the turbine design with stage specific 
speed closest to .55 [dmls] which does not violate the geometric limits 
imposed. The specific limits imposed are: 

a) hub/tip radius ratios must be >= .60 

b) hub/tip radius ratios must be <= .90 


Figure 8 shows Balje's correlation total -to-static polytropic efficiency for 
axial turbines versus specific speed. This efficiency correlation is for 
turbines with 2% [of blade height] clearance ratio and a Reynolds Number of 
2 million. Figure 9 provides an efficiency multiplier which corrects for 
clearance ratios other than 2%. Figure 10 provides a Reynolds Number 
correction loss multiplier suitable for both radial and axial turbines. 
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Polytropic Efficiency 


Axial Compressor Efficiency Algorithm 

Balje Correlation @Re«2E6, C/B=.02 



Log10(Nsc) 


Figure 3. Axial Compressor Total -to-Static Polytropic 
Efficiency versus Specific Speed 


Axial Compressor Efficiency Algorithm 

ASME Code PWC-10 Clearance Correction 



Ctearance/Blade Height Ratio 


Figure 4. Axial Compressor Tip Clearance Efficiency Correction 
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Compressor Efficiency Algorithm 

Balj Recommended Reynolds No. Correction 



Log10(Re) 


Figure 5. Axial and Radial Compressor Reynolds Number 
Efficiency Correction 


Radial Compressor Efficiency Algorithm 

Baije Correlation @Re»2E6, C/B=.02 



Figure 6. Radial Compressor Total -to-Static Polytropic 
Efficiency versus Specific Speed 
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Figure 7. Radial Compressor Tip Clearance Efficiency Correction 


AXTURB estimates the adiabatic efficiency of its design based a polytropic 
efficiency algorithm, a size correction, and a tip clearance loss correlation. 
AXTURB also computes the value of AN 2 [Flow Area (sq in) x Speed (rpm) 2 ] which 
is used to evaluate the centrifugal stress levels expected in the candidate 
design. Subroutine AXTURB uses Subroutine STRNGTH to ascertain the allowable 
blade root stress level to meet the required life at the specified operating 
temperature. Subroutine STRNGTH is currently using a 1% creep criteria [-3 
sigma properties] for TZM refractory alloy. 

The value of AN 2 is written to file: PROG$OUT if keyed by IPRINT. The stress 
limited AN 2 is also printed in the same output file. 

Subroutine RADTURB - Subroutine RADTURB serves to provide sizing and 
performance estimates for a radial turbine defined by virtue of specified 
operating conditions. RADTURB defines the rotor tip and exducer hub and tip 
radii . 

Figure 11 show Balje's correlation total -to-static polytropic efficiency for 
radial compressors versus specific speed. This efficiency correlation is for 
compressors with 2% [of blade height] clearance ratio and a Reynolds Number 
of 2 million. Figure 12 provides an efficiency multiplier which corrects for 
clearance ratios other than 2%. Figure 10 provides a Reynolds Number 
correction loss multiplier suitable for both radial and axial compressors. 
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RADTURB defines the rotor tip speed and radius which correspond to the maximum 
efficiency ratio to the ideal spouting velocity. The exducer shroud radius 
is constrained to be between .70 and .90 times the tip radius. Exducer hub 
radius must be .40 or more times the exducer tip radius. 


2. 2. 2. 7 Gas Property Support Functions 

Functions VISCOS and CONDUCT use the Lennard-Jones parameters established by 
GASPROP to compute working fluid viscosity and thermal conductivity as a function 
of the specified temperature level. Functions AVVISC and AVCOND generate an 
estimate of the effective average viscosity or conductivity over a specified 
range of temperature using Simpson's Rule. 


Axial Turbine Efficiency Algorithm 

Balje Correlation @Re-2E6, C/B=.02 



Figure 8. Axial Turbine Total -to-Static Polytropic 
Efficiency versus Specific Speed 
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Efficiency Loss Multiplier 


Axial Turbine Efficiency Algorithm 

Balje Clearance Correction 



Figure 9. Axial Turbine Tip Clearance Efficiency Correction 


Turbine Efficiency Algorithm 

NASA Recommended Reynolds No. Correction 



Figure 10 Axial and Radial Turbine Reynolds Number 
Efficiency Correction 
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Radial Turbine Efficiency Algorithm 

Balje Correlation @Re=2E6, C/B=.02 



Figure 11 Radial Turbine Total -to-Static Polytropic 
Efficiency versus Specific Speed 


Radial Turbine Efficiency Algorithm 

Balje Clearance Correction for Radiais 



Figure 12 Radial Turbine Tip Clearance Efficiency Correction 
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2.2.3 Postprocessor/Output Module 
2.2.3. 1 Subroutine BRAYTON 

Subroutine BRAYTON is the coordinating "traffic control" code which directs the 
calling sequence of the support routines. BRAYTON is fundamentally the mainline 
program for a single PCU design with component sizing. A full nomenclature and 
statepoint summary is included in the code annotation for this routine. 

Subroutine BRAYTON performs the following functions in the postprocessor/ 
algorithm section: 

- Calls DUCTING, defines dimensions/mass of each duct segment. 

- Calls IHXSHEL, provides for gas-side pressure drop iteration to complete 

IHX sizing. . _ . . , , 

- Provides for an iteration (to be set-up by the NASA integrator of the code) 
when calling the heat rejection module in order to complete sizing of the 
heat rejection heat exchanger within the desired pressure drop. 

- Calls RECSIZE, defines dimension/mass 

- Calls TAC, defines compressor and turbine masses and sums these with the 
generator mass and structural mass estimate to predict complete TAC mass 

- If I PRINT > 0 BRAYTON writes a cycle summary page to PR0G$0UT and returns 
to calling routine 


2. 2. 3. 2 Subroutine DUCTING 

Subroutine DUCTING sizes four to six duct segments [depending on the recuperation 
scheme] based on the input data provided to the program. The ducting routine 
provides diameter, length, and mass information for inclusion in the system 
design summary. The ducting routine is iterative, solving for a duct diameter 
(and corresponding length based on the input L/D ratio) for each duct segment 
satisfying the pressure drop requirement for that duct segment. Warning messages 
have been provided for designs resulting in low or high gas velocities. The user 
should evaluate whether the gas velocity makes sense for the case being examined. 
If not, adjustments should be made to the input data files to change the pressure 
drop allocation for the duct segment and/or the number of L/D's specified for 
that duct segment. 


2. 2. 3. 3 Subroutine IHXSHEL 

Subroutine IHXSHEL sizes and computes the thermal hydraulic performance of the 
shell -and-tube intermediate heat exchanger. The IHXSHEL subroutine uses the same 
routine as used in the heat rejection module for shell -and-tube heat exchanger 
sizing. The routine assumes an system configuration using liquid metal on the 
tube-side of the heat exchanger and the Brayton cycle gas on the shell -side. The 
IHXSHEL routine is iterative, solving for a tube pitch ratio satisfying the gas- 
side pressure drop requirement for the IHX. The user should evaluate whether the 
tube pitch ratio makes sense for the case being examined. If not, adjustments 
should be made to the input data file to change the pressure drop allocation for 
the IHX. Details of the of the shell -and-tube heat exchanger sizing code are 
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provided in the documentation for the heat rejection module, NASA CR- 191132. 


2. 2. 3. 4 Provisions for Calling the Heat Rejection Nodule 

Provisions are provided for establishing an iteration scheme to size the heat 
rejection heat exchanger to meet the required gas-side pressure drop. The heat 
rejection heat exchanger sizing routine is part to the Heat Rejection Module 
supplied with Task Order 19. The NASA integrator will be required to integrate 
these two codes into the overall system code. 


2.2.3. 5 Subroutine TAC 

Subroutine TAC is the routine which defines the turbogenerator-compressor (aka 
turboalternator-...) mass as defined by a system of algorithms. The generator 
mass is provided by GENSIZE. The development of the GENSIZE algorithms is 
discussed in section 2.2.4. Compressor and turbine masses (for either axial or 
radial equipment) are computed as functions of the physical parameters and 
dimensions defined in the aerodynamic routines. 

Mass estimates for all aerodynamic components are base on algorithms derived from 
gas turbine and closed-cycle data bases. All compressor mass estimates assume 
full Titanium alloy construction. All turbine mass estimates assume TZM rotating 
groups [wheels and blades] and a Nb alloy static structure. 


2. 2. 3. 6 Subroutine RECSIZE 

Subroutine RECSIZE provides an estimate of recuperator core dimension and mass 
based on the current cycle statepoint values, the core matrix geometry provided 
via Subroutine RECINP, and the gas transport properties calculated for the gas 
or gas mixture specified. Since the integration and packaging of the recuperator 
is an open design issue, the mass associated with wrap-up, end-sections and 
manifolds is handled as an added 50% mass over and above the computed core mass. 
An allocation of 30% of the specified fractional pressure loss is also made for 
the recuperator entry and exit transition [e.g.; the core pressure loss used for 
sizing is 70% of the total allocation]. 

The sizing of the recuperator core is done using friction factor [f] and heat 
transfer correlations [Colburn j-factor] for a typical core matrix. The f & j 
data used were obtained from "Compact Heat Exchanger" by Kays and London and are 
represented in Figure 13. This data is deemed typical of likely plate-fin 
constructions using offset fin geometries. Since the data is correlated versus 
Reynolds Number, it is satisfactory for use in scoping analyses with any geometry 
similar to the reference design. 
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Kays & London Plate-Fin Data 

f and J Data for Use in Recuperator 



Figure 13 Recuperator Friction Factor and Heat 
Transfer Correlations 


2. 2. 3. 7 Subroutine OUTPUT 

Subroutine OUTPUT will provide a one-page cycl e/ system summary written to 
filename: PR0G$0UT when the print flag "IPRINT" is > 0. Included in the file 
are: 

1) a recap of the independent variables 

2) a mass breakdown by major component 

3) aero component geometries and key indicator parameters 

4) descriptive summary of the resulting generator design 

5) a full statepoint summary of flows, temps, pressures 

6) a summary of predicted shaft and thermal parasitic losses 
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2.2.4 Development of Generator Algorithms 

This section discusses the development of the generator design algorithm, 
GENSIZE, in support of the power conversion systems code development. 
Specifically, numerous point design studies have been completed and algorithms 
developed to support generator sizing in the full-up system evaluation code. 


2.2.4. 1 Study Guidelines 
Generator Type 

All generator designs studied are high performance, high reliability TPTL [two- 
pole toothless] PM [permanent magnet] type. Both ring wound [RW]/variable cross- 
section conductor [VCSC] and conventionally wound TPTL configurations were 
investigated. Specific operating requirements imposed are summarized in Table 
7, below. 

Operating Speed 

The TPTL machines were designed to the achieve maximum rotor speed consistent 
with high-reliability (.99+) and 2 to 10 year life. Some advances beyond the 
state-of-the-art could reasonably be assumed since the use dates range from 2000 
to 2015. Although the determination of design speed for a turbo-generator is 
probably dictated by the generator, the generator speed was also limited to the 
maximum turbine design speed profile shown in Table 7. No overspeed allowance 
was included. 

Operating Environment 

The generator designs are primarily intended for use in a Potassium turbo- 
generator power system. The rotor/wire-support gap is assumed filled with 
Potassium vapor at the conditions listed in Table 7. 

Insulation System 

A 220 deg C insulation system was selected as the reference system. Some 
deration of the operating temperature may be required to achieve the more 
ambitious reliability and life goals. Generator sizing, however, can be 
accomplished at the nominal 220 deg C for hot-spot temperature. Insulation 
thickness was based on a potential of 50 volts/mii. 

Cooling 

The generator cooling assumes direct stator cooling with an organic coolant (e.g. 
n-Heptane, Dowtherm, etc.). 

Design Voltage 

The generator designs considered produce 3-phase alternating current at an RMS 
line-to-line voltage of either 1400 or 8000. The relationship of desired voltage 
to generator power level is shown in Table 7. 
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Generator Interfaces 


The generator designs evaluated were optimized for an assumed transformer 
interface. The projected power factor for all cases is 0.90 lagging. This 
interface is more likely than a rectifier interface for an NEP application. The 
power factors for use in design are included in Table 7. 

Mass/Performance Trade 

Overall generator conversion efficiency (including windage) is the salient 
parameter affecting system optimization. The TPTL designs were optimized to 
maximum efficiency with a mass/efficiency trade ratio of approximately .2 
pounds/kWe generator mass/% generator efficiency. 

Table 7 

Generator Design Requirements 


Generator 
Power Output 
-kVA- 


56 111 222 555 1,111 2,222 5,555 


Generator type 
Maximum Speed, krpm 
Voltage (RMSv 1-1) 
Power Factor 


< 

160 120 
1,400 1,400 

< 


tptl PM -> 

85 57 41 30 20 

1,400 1,400 8,000 8,000 8,000 

0.90 lagging > 


Gap Conditions: 

Viscos., lb/ft-hr < 
Temp, deg F < 
Press, psia < 
Rho, lb/cu ft < 


0.030 > 

440 > 

4.88E-4 > 

1.97E-6 > 


Voltage Regulation < 


+/- 10 % 


> 


Insulation Class 


220 C 


> 


Rotor Magnet L/D 


<=2.5 


> 


2. 2. 4. 2 Generator Design Results 

A total of twenty-one point designs were completed using an AiResearch Los 
Angeles Division [ALAD] proprietary design code. From the results of these 
studies the VCSC-RW PMG configuration was selected for inclusion in the 
deliverable generator sizing code. The point designs were reduced to algorithm 
form to predict performance, mass, and size as a function of design kVA, rotor 
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surface speed and desired output voltage. 

Assumptions, Justification, Limits 

a) A maximum allowable generator rotor surface speed of 700 ft/sec was 
established by ALAD. Above this speed, the primary flux gap widens rapidly 
due to the hoop thickness required to retain the rotor magnet. 

b) A reference rotor L/D of 2.5 was selected for the study. The algorithms 

developed are assumed valid in the range of 2 <= L/D <= 3 when corrected for 

L/D not equal 2.5. 

c) The algorithms are assumed valid in the range of output voltage from 1 to 10 
kV 1-1, RMS and the range of power factor from .70 to 1.0. 

d) The design analyses were completed assuming 500 deg F operating temperature 

for both rotor and stator. These assumptions effect magnet aging design 

margin, electrical insulation life, and conductor resistivity. 

e) The alternator will be integrated for use with direct stator cooling using 
an organic coolant such a Dowtherm A, N-Heptane, etc. 

Point Design Study Results 

A total of twenty-one point designs were completed using an AiResearch Los 
Angeles Division [ALAD] proprietary design code. This code provides a 
comprehensive physical and performance description of candidate generator 
designs. 

The cases run represent three separate data sets run at the power levels defined 
in Table 7 and the configuration below: 

Set A - Conventionally Wound TPTL PMG at 700 ft/sec surface speed 

Set B - Ring Wound/Variable Cross-section Conductor TPTL PMG at 700 ft/sec 
surface speed 

Set C - Ring Wound/Variable Cross-section Conductor TPTL PMG at 500 ft/sec 
surface speed 

Data sets A and B were run concurrently with common groundrules to establish the 
preferred configuration [ring wound or conventional] for continued study. 

Tables 8 and 9 summarize the geometries and performance which resulted from the 
comparison. It can readily be seen that the VCSC-RW TPTL PM machine is the 
preferred choice for all power ratings studied. The higher efficiency, lower 
mass, and higher operating speed are made possible by the higher machine air gap 
flux density resulting from the VCSC-RW design. In addition, better winding 
space utilization and higher reliability are achieved since the concentrated 
individual phase windings are located in physically separate 60 degree phase 
sectors. The borders of these phase sectors are insulated phase-to-phase, while 
within the sector only turn-to-turn and winding-to-ground insulation is required. 
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In contrast, stator windings using conventional slotted configurations use two 
coil sides per slot. These coil sides are associated with different phase 
windings. Full phase-to-phase voltage potential exists between the coil sides 
as well as between the phase windings which cross over each other in the end 
turns. Even though fully insulated, areas of phase windings in contact still 
exist. This condition limits stator robustness, particularly in severe 
environments and high voltage designs, and reduces stator reliability. 

The ring wound stator configuration that uses single-layer variable cross-section 
conductors readily lends itself the optimization of the winding to achieve high 
machine air gap flux density, efficient cooling, and maximum reliability. The 
most valuable space for an electrical machine [motor or generator] is the area 
between the surface of the rotor magnet and the ID of the laminated iron flux 
return path. The smallest possible distance between them yields the highest air 
gap flux density which leads to the smallest machine mass and size. For the ring 
wound configuration, the space around the ends of the OD of the flux collector 
ring is available for much larger conductor segments. Using a high current 
density Litz wire conductor in the air gap area that is connected to a much 
larger conductor used for the remainder of the winding results in an enhanced 
electromagnetic and thermal design. The large cross-section, low current density 
conductor segment can provide a heat sink and more thermal mass for the winding 
and thus more effective cooling of the higher current density Litz conductor 
segment. Lower total winding resistance will result in lower I 2 R losses and 
higher efficiency. 

Table 10 contains design specifics for a series of VCSC-RW TPTL designs operating 
at 500 ft/sec surface speed. The units are surprisingly low in mass and exhibit 
small rotor sizes as well. This excellent result at 500 ft/sec is attributed to 
the much reduced thickness required for the magnet retaining hoop and the 
resulting large increase in gap flux density. In most cases, rotor sizes are 
comparable to their 700 ft/sec counterparts and total masses are generally lower. 
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Table 8 Design Summary for Conventionally Wound TPTL Generators Operating at 
700 ft/sec Surface Speed 


Power Level 


Power 

kUe 

50 

100 

200 

500 

1,000 

2,000 

5,000 

kVA 

kVA 

56 

111 

222 

556 

1,111 

2,222 

5,556 

Alt Type 

TPTL 

Conv. 

Conv. 

Conv. 

Conv. 

Conv. 

Conv. 

Conv. 

u 

rpn 

54,500 

48,200 

34,200 

25,000 

18,400 

13,700 

10,240 

Vbase 

l-n RMS 

808 

808 

808 

808 

4,620 

4,620 

4,620 

Rotor Die 

inches 

2.94 

3.55 

4.69 

6.42 

8.72 

11.71 

15.67 

Stator 00 

inches 

5.75 

6.52 

8.53 

11.05 

13.51 

17.70 

22.70 

Total Len 

inches 

12.37 

14.20 

18.60 

24.30 

33.60 

44.30 

59.50 

Magnet L/D 

dnls 

2.57 

2.51 

2.5 

2.4* 

2.53 

2.5 

2.58 

Xcoro 

P.U. 

0.121 

0.119 

0.129 

0.114 

0.131 

0.130 

0.137 

EM Mass 

Ibm 

38.48 

65.03 

146.30 

358.2 

724.0 

1682.0 

4101.0 

Rotor Mass 

Ibn 

15.58 

26.52 

61.00 

152.0 

395.0 

940.0 

2314.0 

Total Effy 

X 

95.08X 

95.88% 

96.14% 

96.65% 

95.40% 

95.80% 

96.35% 

Total Loss 

kU 

2.56 

4.30 

8.03 

17.3 

48.3 

88.2 

189.3 

Rotor Tip Spd 

ft/s 

700 

700 

700 

700 

700 

700 

700 

Bcore 

kL/sq in 

80 

80 

80 

80 

140 

140 

140 

Table 9 Design Summary 

for Ring-Wound TPTL 

Generators Operating 

at 700 

ft/sec Surface 

Speed 











Power Level 



Power 

kUe 

50 

"100 

200 

500 

1,000 

2,000 

5,000 

kVA 

kVA 

56 

111 

222 

556 

1,111 

2,222 

5,556 

Alt Type 

TPTL 

R.U. 

R.U. 

R.U. 

R.U. 

R.U. 

R.U. 

R.U. 

N 

rpm 

80,000' 

62,000 

47,500 

32,500 

23,000 

16,500 

11,400 

Vbase 

l-n RMS 

808 

808 

808 

808 

4,620 

4,620 

4,620 

Rotor Dia 

inches 

2.01 

2.59 

3.38 

4.92 

6.98 

9.72 

14.07 

Stator 00 

i nches 

3.82 

4.80 

6.10 

8.60 

10.80 

14.50 

20.00 

Total Len 

inches 

6.20 

7.40 

9.80 

14.30 

19.00 

27.20 

38.00 

Magnet L/D 

dnls 

2.49 

2.49 

2.5 

2.5 

2.49 

2.5 

2.51 

Xcom 

P.U. 

0.120 

0.120 

0.130 

0.130 

0.130 

0.120 

0.130 

EM Mass 

Ibm 

14.08 

29.40 

62.00 

182.7 

375.0 

993.0 

3105.0 

Rotor Mass 

Ibm 

4.82 

10.32 

23.00 

71.0 

198.0 

536.0 

1630.0 

Total Effy 

X 

96.39X 

96.68X 

96.80% 

96.97% 

96.44% 

96.30X 

96.97% 

Total Loss 

kU 

1.86 

3.44 

6.60 

15.6 

36.9 

77.0- 

156.0 

Rotor Tip Spd 

ft/s 

700 

700 

700 

700 

700 

700 

700 

Bcore 

kL/sq in 

80 

80 

80 

80 

140 

140 

140 
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Table 10 Design Summary for Ring-Wound TPTL Generators Operating at 500 
ft/sec Surface Speed 


Power Level 


Power 

kUe 

50 

100 

200 

500 

1,000 

2,000 

5,000 

kVA 

kVA 

56 

111 

222 

556 

1,111 

2,222 

5,556 

Alt Type 

TPTL 

R.U. 

R.U. 

R.U. 

R.U. 

R.U. 

R.U. 

R.U. 

n 

rpra 

61,200 

47,300 

36,800 25,700 

18,000 

14,050 

9,700 

Vbase 

l-n RMS 

808 

808 

808 

808 

4,620 

4,620 

4,620 

Rotor Die 

inches 

1.87 

2.42 

3.11 

4.46 

6.37 

8.16 

11.81 

Stator 00 

inches 

A. 00 

5.60 

6.50 

9.10 

10.80 

13.30 

18.70 

Total Len 

inches 

5.60 

7.20 

9.00 

13.00 

17.70 

22.70 

32.80 

Magnet L/D 

dnis 

2.51 

2.50 

2.50 

2.50 

2.50 

2.50 

2.50 

Xcom 

P.U. 

0.130 

0.130 

0.130 

0.130 

0.120 

0.130 

0.130 

EM Mass 

Ibra 

14.56 

29.63 

60.12 

168.0 

348.9 

729.7 

2131.0 

Rotor Mass 

Ibm 

3.89 

8.40 

17.70 

51.9 

152.0 

316.0 

960.0 

Total Effy 

X 

96.55X 

96.71X 

96.76X 

96.88X 

96.29X 

96.49X 

96.69X 

Total Loss 

kU 

1.77 

3.40 

6.69 

16.1 

38.6 

72.7 

171.4 

Rotor Tip Spd 

ft/s 

500 

500 

500 

500 

500 

500 

500 

Bcore 

kL/sq in 

80 

80 

80 

80 

140 

140 

140 

Table 11. Generator Materials 

and Technology Assumptions 


Component 

Material 


Salient ] 

[nfo Technology 

Status 



Rotor Magnet 

Samarium-^ 

Cobalt 

30 MG0 

Commer. Avail., Select Mat 

n 

Rotor Hood 

Inconel 


180 ksi 

Commer. Avail., Special order 

Outer Condctrs Copper 



Commer. Avail., Mil 

-W 


Inner Condctrs 

Litz Wire 



Comm 

. Aval lable 



Stator Insultn 

Pyre-ML 


Organic 

Comm 

. Available 



Flux Ret. Path 

Si -steel 

[3 . 5%] 

80 kL/in' Comm 

. Available 



50-750 kWe 









Flux Ret. Path Hyperco 


140 kL/iir Comm 

. Available 



750-5000 kWe 









Support Struct 

Polyamide 



Comm 

. Aval lable 
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Materials of Construction, Technology Assumptions 

Table 11 contains a summary of the materials of construction assumed in the point 
design study and performance algorithm. Table 11 also comments on assumed 
technology levels relative to today's attainable values. 

No technology advancement beyond properties available today were assumed for the 
point design study or in the resulting algorithm. 

Summary of Anticipated Benefits with VCSC-RW TPTL Configuration 

• Higher reliability 

• Higher efficiency due to lower copper losses 

• Increased power density due to improved utilization of PM material 

• Smaller size, lower mass 

• Optimum configuration to facilitate stator cooling using either direct flow 
[using liquid or gas] or by indirect outer jacket cooling flow. 

• Competitive performance over a wide power range 

• Higher operating speed allowables 


2. 2. 4. 3 Algorithm Development 

With the selection of the VCSC-RW TPTL configuration, fourteen valid point 
designs remained from which to formulate a conceptual design algorithm GENSIZE 
for turbo-generator systems. This data is contained in Tables 9 and 10 and 
represents seven power levels and two rotor surface speeds. 

In order to develop the appropriate algorithms for size, mass and dimension, 
classical generator/motor scaling laws were applied to compute appropriate sizing 
coefficients. All algorithms considered design kVA, design voltage and rotor 
surface speed as the salient independent parameters. By applying the classical 
ND 2 L [proportional to kVA] law the rotor diameter sizing coefficient could be 
determined. Overall dimensions [overall length and OD] were similarly converted 
to algorithm form. The four relevant equations contained in the generator sizing 
routine are as follows: 


D rat0( = [ ( 7 00 ) 0 468 * ( 40 . 65+6 . 6 E - 4* V* ( 1)^700 ) 2 5 ) *kVA ore ] * 

[kVA/ (N*{L/D} rolw ) ] ,n [1] 

M^ = 1 . 938*(U Sp /700) 059, *( 1 .0467-3 . 3E-5*V)*D ro10( 285 * 

({1/0} rot0f + . 48 ) / 2 . 98 [2] 

D„. tor = (U tip /700) 04 *(2 . 14-0. 12*kVA 0175 -2.25E-5*V)*D I#fOT [3] 


L* = (2.98-. 02*D rolor )*D fOtor * ( {L/D} rot0l + . 48)/2 . 98 [4] 
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Where; 

D = Rotor Outside Diameter [including sleeve], inches 

rotor 

{L/D} rot<(( = Rotor L/D; Magnet Length/Sleeve OD 

M.,, = Generator Electro-magnetic Weight, lb m 

* Copper and insulation 

* Magnet and Sleeve 

* Polyamide Structure 

* Complete Flux Return Path Laminant 

D = Generator Stator Outside Diameter, inches 

ttator 

= Generator Overall Length, inches 

* allowance for end turns/connections included 

V = Generator Output Voltage, RMSv, line-to-line 

kVA = Generator kiloVolt-Amperes as defined by Power and PF 

U* = Design Generator Surface Speed, ft/sec 


Algorithm Validation 

Tables 9 and 10 also contain mass and dimensional data computed from the 
equations above. The values computed from the developed algorithms generally 
agree within a few percent with the point design values and represent attainable 
designs which can be built with today's technology. 

Details of routine function and assumptions are available from the code 
annotation contained Appendix B in the subroutine GENSIZE. 
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3.0 Conclusions and Recommendations 


The closed Brayton cycle computer model described in this document was developed 
for inclusion into the NASA LeRC overall Nuclear Electric Propulsion (NEP) end- 
to-end systems model. The overall code will predict system and subsystem 
performance to significant detail. The code is intended to provide greater depth 
to the NEP system modelling which is required to more accurately predict the 
impact of specific technology on system performance. 

The closed Brayton cycle power conversion system computer model is parametrically 
based to allow for conducting detailed optimization studies and to provide for 
easy integration into an overall optimizer driver routine. The power conversion 
model includes the modelling of the turbines, alternators, compressors, ducting, 
and heat exchangers (hot-side heat exchanger and recuperator). The system 
characteristics determined include estimates of mass, efficiency, and the 
characteristic dimensions of the major power conversion system components. These 
characteristics are parametrically modelled as a function of input parameters 
such as the aerodynamic configuration, turbine inlet temperature, cycle 
temperature ratio, power level, lifetime, materials, and redundancy. The model 
provides for selecting either an axial or radial aerodynamic configuration with 
the turbine inlet temperature limited to about 1500 K due to material 
considerations. The code is capable of evaluating the system performance over 
a temperature ratio ranging from 2.5 to 4.0. The model is designed for systems 
with a power level ranging from 50 to 2000 kWe using the Two-pole Toothless 
(TPTL) alternator as the baseline. The model also accounts for the desired 
system lifetime in the system characterization with an acceptable range from 2 
to 10 years. 

The closed Brayton cycle parametric model provides a useful tool for doing 
detailed system optimizations and parametric analysis. The code developed, 
although quite large, is relatively simple to use allowing for expedient 
parametric analysis. In the overall context of the NEP systems model, the 
Brayton parametric code will provide useful design information for developing an 
optimized Brayton system for specific applications and for assessing the impact 
of technology on the system performance. 
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Appendix A 

Summary of Global Nomenclature in Brayton System Model 
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Summary of Global Nomenclature in Brayton System Model 


AFINs 

REAL 

ALPHAS 

REAL 

ANSQC 

REAL 

ANSQT 

REAL 

APLATs 

REAL 

BETA 

REAL 

BRGLOSS 

REAL 

CLNTTYPE 

CH*10 

COE 

REAL 

COMFLO 

REAL 

COMPDIA 

REAL 

COMPSS 

REAL 

COMPTYPE 

CH*10 

COOLING 

REAL 

CP 

REAL 

CPCLNT 

REAL 

CYCDES(8) 

CH*10 

DGENRTR 

REAL 

DGENSTR 

REAL 

DPMH 

REAL 

DPML 

REAL 

DPOPi 

REAL 

DPOPREC 

REAL 

EFFC 

REAL 

EFFCYCLE 

REAL 

EFFT 

REAL 

EFFR 

REAL 

ERRORC 

CH*64 

ERRORF 

CH*64 

ERRORG 

CH*64 

ERRORR 

CH*64 

ERRORT 

CH*64 

ETACOMP 

REAL 

ETATURB 

REAL 

FLOW(i) 

REAL 

GAMMA 

REAL 

GAS ( 2 ) 

CH*10 

GENASP 

REAL 

GENTYPE 

CH*20 

GROSSEP 

REAL 

HDs 

REAL 

INTTYPE 

CH*20 

IPRINT 

INTEG 


Recup. Fin Area/Volume; s=L or H for Loc., sq in/cu in 
Recup. Total Heat Tr. Area/Vol; s=L or H for Loc., drills 
Flow Area x Speed A 2 for Axial Compressors, sq in-rpm A 2 
Flow Area x Speed A 2 for Axial Turbines, sq in-rpm A 2 
Recup. Plate Area/Vol.; s=|_ or H for Loc., sq in/cu in 
Turbine Pressure Ratio/Compressor Pressure Ratio, dmls 
Rotor Bearing Parasitic Loss, kWs 
Generator Coolant Descriptor, e.g., 'N-HEPTANE ' 

Current Rotor Sizing Coefficient [=f (TIPSPDG,KVA) ] 

Compressor Inlet Flowrate, Ibm/sec 

Radial Compressor Wheel Tip Diameter, inches 

Compressor Specific Speed 

Compressor Type, either 'AXIAL' or 'RADIAL' 

Gen. Induced Cooling Load [EM + bearing + windage], kWt 
Working Fluid Specific Heat [Cp], BTU/(lbm-R) 

Coolant Specific Heat, BTU/(lbm-R) 

Descriptive Title for Current Case 
Generator Rotor Diameter Including Sleeve, inches 
Generator Stator Diameter Including Sleeve, inches 
DP [pressure loss] Design Margin for Recuperator High 
Pressure Side, dmls 

DP [pressure loss] Design Margin for Recuperator Low 
Pressure Side, dmls 

Fractional Pressure Loss for Section Ending at 
Statepoint "i", kWt 

Total Recuperator [both passages] Fractional Pressure 
Loss, dmls 

Compressor Adiabatic Efficiency, dmls 
Cycle Efficiency=GROSSEP/Net Thermal Input to Gas, dmls 
Turbine Adiabatic Efficiency, dmls 
Recuperator , dmls 

Compressor Subroutine Diagnostic Error Message 

Fluid Properties Subroutine Diagnostic Error Message 

Generator Subroutine Diagnostic Error Message 

Recuperator Subroutine Diagnostic Error Message 

Turbine Subroutine Diagnostic Error Message 

Compressor Adiabatic Efficiency, dmls 

Turbine Adiabatic Efficiency, dmls 

Working Fluid Flowrate at Statepoint "i", lbm/sec 

Gas Ratio of Specific Heats [Cv/Cp], dmls 

Working Fluid Constituent Gases, e.g., 'XENON ', 

'HELIUM 

Generator Rotor Aspect Ratio, Sleeve OD/Magnet Length 
Generator Type Descriptor 'RING WOUND TPTL PMG' 

Gross Electric Power at Generator Terminals, kWe 
Recup. Hydraulic Diam.; s=L or H for Loc., in. 
Electrical Interface Descriptor, either 'TRANSFORMER' 
or 'RECTIFIER' 

Output File [PROGSOUT] Switch, 0=0FF, 1,2,3= 

Increasing Detail in Output File 
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Summary of Global Nomenclature in Brayton System Model (continued) 


ISTGC 

INTEG 

ISTGT 

INTEG 

KFINs 

REAL 

KVA 

REAL 

LEQs 

REAL 

LGENTOT 

REAL 

LIFETIME 

REAL 

MASS EM 

REAL 

MASSGEN 

REAL 

MOLWT 

REAL 

NETSP 

REAL 

NFINs 

REAL 

OLDTS 

REAL 

PI 

REAL 

PITCH 

REAL 

POWER 

REAL 

PR(i) 

REAL 

PRC 

REAL 

PRESS (i ) 

REAL 

PREXP 

REAL 

PRNDTL 

REAL 

PWRFCTR 

REAL 

QHSA 

REAL 

QLOSSi 

REAL 

RADHC 

REAL 

RAD 1C 

REAL 

RADNC 

REAL 

RADHT 

REAL 

RAD IT 

REAL 

RADNT 

REAL 

RECH 

REAL 

RECLC 

REAL 

RECLOA 

REAL 

RECW 

REAL 

RHOFINs 

REAL 

ROPLAT 

REAL 

ROBRAZ 

REAL 

SIGMAs 

REAL 

SPACES 

REAL 

SPEED 

REAL 

TBRAZE 

REAL 

TEMP(i) 

REAL 

TFINs 

REAL 

TINCLNT 

REAL 

TIPSPDG 

REAL 

TITLER(8) 

CH*10 

TOUTCLNT 

REAL 

TPLATE 

REAL 


Number of Axial Compressor Stages, dmls 

Number of Axial Turbine Stages, dmls 

Recup. Fin Thermal Conductivity; s=L or H for Loc., 

BTU/(hr-ft-R) [input] & 8TU/(sec-ft-R) [code] 

Generator Output, kVA 

Recuperator Fin Equiv Length; s=L or H for Loc., in. 
Overall Length of Generator EM Section, inches 
Generator Design Lifetime, years 
Estimated Generator Electro-magnetic Mass, lbm 
Estimated Generator Mass w/ Integration Allowance, lbm 
Working Fluid Molecular Weight, lbm/(lb-mol) 

Net Shaft Power [turb-comp-bearings-windage] , kWs 

Recuperator Fins/inch; s= L or H for Location 

Old Tip Speed Value [used for convergence test], ft/sec 

3.14159265 

Repeating Sandwich Thickness in Recuperator Core, in. 
Generator Terminal Power, kWe 
Working Fluid Pressure Ratio Between Statepoints 
"i-1" and "i" 

Compressor Pressure Ratio [total -to-total ] , dmls 
Working Fluid Pressure at Statepoint "i", psia 
Prandtl No. Exponent Used in Heat Transfer Calcs., dmls 
Current Heat Transfer "Prandtl No.", dmls 
Load Power Factor at Generator Terminals [lagging] 

Heat Source Gross Thermal Power, kWt 

Thermal Loss for Section Ending at Statepoint "i", kWt 

Axial Compressor Flowpath Hub Radius, inches 

Axial Compressor Flowpath Inlet Tip Radius, inches 

Axial Compressor Flowpath Discharge Tip Radius, inches 

Axial Turbine Flowpath Hub Radius, inches 

Axial Turbine Flowpath Inlet Tip Radius, inches 

Axial Turbine Flowpath Discharge Tip Radius, inches 

Recuperator Core Height, inches 

Recuperator Core Length, inches 

Recuperator Overall Length, inches 

Recuperator Core Width, inches 

Recup. Fins Density; s=L or H for Location, lbm/cu in 
Recuperator Splitter Plate Density, lbm/cu in 
Recuperator Braze Density, lbm/cu in 
Recup. FlowrFrontal Area Ratio; s=L or H for Loc., dmls 
Recuperator Plate Spacing; s=L or H for Location, in. 
Generator Design Rotating Speed, rpm 
Recuperator Braze Thickness [4/ptch], inches 
Working Fluid Temperature at Statepoint "i", deg R 
Recuperator Fins Thickness; s=L or H for Location, in. 
Specified Generator Coolant Inlet Temperature, deg R 
Generator Rotor Surface Speed, ft/sec [limit is 700] 
Description of Recuperator Core Matrix Geometry 
Specified Generator Coolant Outlet Temperature, deg R 
Recuperator Splitter Plate Thickness, inches 
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Summary of Global Nomenclature in Brayton System Model (continued) 


TURBDIA 

REAL 

TURBSS 

REAL 

TURBTYPE 

CH*10 

TVAR(18) 

CH*10 

UAMH 

REAL 

UAML 

REAL 

UTIPC 

REAL 

UTIPT 

REAL 

VOLTAGE 

REAL 

WARNINGC 

CH*64 

WARNINGF 

CH*64 

WARNINGG 

CH*64 

WARNINGR 

CH*64 

WARNINGT 

CH*64 

WCLNT 

REAL 

WGTDUCT(6) 

REAL 

WDCTTOT 

REAL 

WGTHRA 

REAL 

WGTHSA 

REAL 

WGTREC 

REAL 

WGTTAC 

REAL 

WGTTOT 

REAL 

WINDAGE 

REAL 

XBLC 

REAL 

XBLT 

REAL 


Radial Turbine Wheel Tip Diameter, inches 
Turbine Specific Speed 

Turbine Type, either 'AXIAL ' or 'RADIAL ' 
Variable Names [as converted in SUBROUTINE SETUP] 

UA [heat transfer] DesignM^rgin for Recuperator High 
Pressure Side, dmls 

UA [heat transfer] DesignMargin for Recuperator Low 
Pressure Side, dmls 

Compressor [maximum for axial s] Tip Speed, ft/sec 

Turbine [maximum for axials] Tip Speed, ft/sec 

Desired Generator Output Voltage, 3Ph, line-line, RMS 

Compressor Subroutine Diagnostic Warning Message 

Fluid Properties Subroutine Diagnostic Warning Message 

Generator Subroutine Diagnostic Warning Message 

Recuperator Subroutine Diagnostic Warning Message 

Turbine Subroutine Diagnostic Warning Message 

Calculated Coolant Flow Rate, lbm/sec 

Mass of the Individual Duct Segments, Ibm 

Total of Duct Masses, Ibm 

Heat Rejection Assembly Mass, Ibm 

Heat Source Assembly Mass, Ibm 

Recuperator Assembly Mass, Ibm 

Turbo-alternator Assembly Mass, Ibm 

Total PCU Mass, Ibm 

Genrator Main Gap Windage Loss, kWs 

Bleed Fraction of Flow(l) Returned to Statepoint 

#2 [comp wheel tip], fraction 

Bleed Fraction of Flow(l) Returned to Statepoint 

#13 [turbine stage exit], fraction 
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Appendix B 


Source Code Listing for 

Closed-Brayton Cycle Parametric Design Program 
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BRAY 1. FOR 
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$DEBUG 

$NOTRUNCATE 

PROGRAM MANE 

C **** MANE is checked-out and final on October 6, 1992 


IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JCON 

CHARACTER*10 GAS(2) ,CYCDES(8) ,TITLER(8) ,TVAR(18) , 

& COMPTYPE , TURBTYPE , CLNTTYPE 
CHARACTER*20 GENTYPE, INTTYPE 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN I NGT , WARN INGC , 
& WARN INGR, WARN INGG 

COMMON/D I AGNOS/ ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN I NGT , 

& WARN INGC, WARN INGR, WARN INGG 
COMMON/OUTP/WGTTOT , WGTTAC , RECLC , RECLOA , RECH , RECW 

COMMON /DUCTI 1/ IDUCT, PIN, POUT, MDOT, TIN, MW 
COMMON/DUCT I 2/ ELI (6) , EL2(6), TWL(6), DNWL(6), NMFI(6), 

& TMFI (6) , DMFI (6) , ETA(6) 

COMMON /DUCTOUT/ WGTDUCT(6), DIAM(6), LGTH (6) , VGAS(6) 
COMMON/XDUCT/ XTWL(6), XDNWL(6), XTMFI(6), XDMFI (6) 
COMMON/HSACALCS/ QHSA,WGTHSA,DP9 

COMMON/CONFIG/COMPTYPE, TURBTYPE, GENTYPE, INTTYPE, CLNTTYPE 
COMMON/ALTERNTR/DGENRTR,DGENSTR,LGENTOT,MASSGEN,TIPSPDG,COE, 

& ETAG EN , COO L I NG , WC LNT , VOLTAG E , KVA , G ENASP , T I NC LNT , TOUTC LNT , 

& CPCLNT, LIFETIME 

COMMON/AERODYN/ ETACOMP , COMPD I A , UT I PC , RADHC , RADI C , 

& RADNC , ANSQC , ANSQCL , COMPSS , ISTGC , ETATURB, TURBDIA, UT I PT , 

& RADHT , RADI T , RADNT , ANSQT , ANSQTL , TURBSS , ISTGT 
COMMON/OPTIM/ VAR( 18) ,TVAR, I PRINT 
COMMON/ F LUID/ GAS , GAMMA , MO L WT , C P , PRNDTL 
COMMON/TITLE/ CYCDES,TITLER 


COMMON/S I/XVAR( 17), XTEMP(17) 

COMMON/LOSS/ QL0SS8,QLOSS9,QL0SS10,QLOSS13,FCTQ8,FCTQ10,FCTQ13 
COMMON/CYCLE/TEMP(17) , PRESS (17), FLOW(17) , PR(17) , BETA, COMFLO, 

& PRC , EFFC , EFFT , EFFR, EFFA, XBLC , XBLT, SPEED, POWER, PWRFCTR, 

& DPOP6 , DPOP7 , DPOP8 , DPOP9 , DPOPIO , DPOP13 , DP0P14, DPOP1 5 , 

& DPOP16,DPOP17,NETSP,GROSSEP,EFFCYCLE, WINDAGE 
COMMON/ GASBRG/ BRG LOS S 

COMMON/RECUP/ DPOPREC , UAML , UAMH , DPML , DPMH , 

& PREXP,NFINL,TFINL,SPACEL, LEQL,ROFINL,KFINL,NFINH,TFINH,SPACEH, 

& LEQH, ROF INH , KF I NH , TPLATE , ROPLAT , TBRAZE, ROBRAZ , 

& S I GMAL , ALPHAL , AF INL , APLATL , HDL , S I GMAH , ALPHAH , AF INH , APLATH , HDH , 
& PITCH, WGTREC 

COMMON/MASSES/MASSCMP,MASSTRB,MWHLC,MWHLT,MSFTC,MSFTT,MCASEC, 

& MCASET,MDIAC,MDIAT 
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COMMON/ I HX/ DPSHELL1 , ANTUBES1 ,DPTUBE1 ,DOTL21 ,ALSHEL1 ,AMSHELL1 , 

& AMPLATES1 ,AMTUBES1 ,AMINSUL1 ,AMHEADS1 ,AMSTRT1 ,ANETMASS1 ,XMNHEX1 , 

& HSHELL1 , AFRIC1 , UNEW1 , RETUBE1 , THC 1 ,AMTSHT1 , PRATIO, IHXFLG, UEST1, 
& THIN1, THOUT1 , TTUBE1, ANPLATES1 ,AKTUBE1, TINS1, DENINS1 , 

& DENSSH1 , DTUBE1 

COMMON/CONST/PI , RU , GO , JCON , RZERO 


C**** assign constants for later computational use 
PI=3. 14159265 
RU=1545. 

G0=32. 1739 
JCON=778. 16 
RZERO=0. 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


********** Nomenclature ********* 


AFINs 

REAL 

ALPHAS 

REAL 

ANSQC 

REAL 

ANSQCL 

REAL 

ANSQT 

REAL 

ANSQTL 

REAL 

APLATs 

REAL 

BETA 

REAL 

BRGLOSS 

REAL 

CLNTTYPE 

CH*10 

COE 

REAL 

COMFLO 

REAL 

COMPDIA 

REAL 

COMPSS 

REAL 

COMPTYPE 

CH*10 

COOLING 

REAL 

CP 

REAL 

CPCLNT 

REAL 

CYCDES(8) 

CH*10 

DGENRTR 

REAL 

DGENSTR 

REAL 

DPMH 

REAL 

DPML 

REAL 

DPOPi 

REAL 

DPOPREC 

REAL 

EFFC 

REAL 

EFFCYCLE 

REAL 

EFFT 

REAL 

EFFR 

REAL 

ERRORC 

CH*64 

ERRORF 

CH*64 


Recup. Fin Area/Volume; s=L or H for Loc., sq in/cu in 
Recup. Total Heat Tr. Area/Vol ; s=L or H for Loc., dmls 
Flow Area x Speed A 2 for Axial Compressors, sq in-rpm A 2 
Approximate AN A 2 Limit for Axial Compressors, sq in-rpm A 2 
Flow Area x Speed A 2 for Axial Turbines, sq in-rpm A 2 
Approximate AN A 2 Limit for Axial Turbines, sq in-rpm A 2 
Recup. Plate Area/Vol.; s=L or H for Loc., sq in/cu in 
Turbine Pressure Ratio/Compressor Pressure Ratio, dmls 
Rotor Bearing Parasitic Loss, kWs 
Generator Coolant Descripptor, e.g., 'N-HEPTANE 
Current Rotor Sizing Coefficient [=f(TIPSPDG,KVA)] 
Compressor Inlet Flowrate, lbm/sec 
Radial Compressor Wheel Tip Diameter, inches 
Compressor Specific Speed 
Compressor Type, either 'AXIAL' or 'RADIAL' 

Generator Induced Cooling Load [EM+windage+beargs] , kWt 
Working Fluid Specific Heat [Cp], BTU/(lbm-R) 

Coolant Specific Heat, BTU/(lbm-R) 

Descriptive Title for Current Case 
Generator Rotor Diameter Including Sleeve, inches 
Generator Stator Diameter Including Sleeve, inches 
DP [pressure loss] Design Margin for Recuperator High 
Pressure Side, dmls 

DP [pressure loss] Design Margin for Recuperator Low 
Pressure Side, dmls 

Fractional Pressure Loss for Section Ending at 
Statepoint "i", kWt 

Total Recuperator [both passages] Fractional Pressure 
Loss, dmls 

Compressor Adiabatic Efficiency, dmls 

Cycle Ef f i ci ency=GROSSEP/Net Thermal Input to Gas, dmls 

Turbine Adiabatic Efficiency, dmls 

Recuperator , dmls 

Compressor Subroutine Diagnostic Error Message 
Fluid Properties Subroutine Diagnostic Error Message 
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c 

ERRORG 

CH*64 

c 

ERRORR 

CH*64 

c 

ERRORT 

CH*64 

c 

ETACOMP 

REAL 

c 

ETATURB 

REAL 

c 

F LOW ( i ) 

REAL 

c 

GAMMA 

REAL 

c 

GAS ( 2 ) 

CH*10 

c 



c 

GENASP 

REAL 

c 

GENTYPE 

CH*20 

c 

GROSSEP 

REAL 

c 

HDs 

REAL 

c 

INTTYPE 

CH*20 

c 



c 

IPRINT 

INTEG 

c 



c 

ISTGC 

INTEG 

c 

ISTGT 

INTEG 

c 

KFINs 

REAL 

c 



c 

KVA 

REAL 

c 

LEQs 

REAL 

c 

LGENTOT 

REAL 

c 

LIFETIME 

REAL 

c 

MASS EM 

REAL 

c 

MASS GEN 

REAL 

c 

MOLWT 

REAL 

c 

NETSP 

REAL 

c 

NFINs 

REAL 

c 

OLDTS 

REAL 

c 

PI 

REAL 

c 

PITCH 

REAL 

c 

POWER 

REAL 

c 

PR(i) 

REAL 

c 



c 

PRC 

REAL 

c 

PRESS ( i ) 

REAL 

c 

PREXP 

REAL 

c 

PRNDTL 

REAL 

c 

PWRFCTR 

REAL 

c 

QHSA 

REAL 

c 

QLOSSi 

REAL 

c 

RADHC 

REAL 

c 

RAD1C 

REAL 

c 

RADNC 

REAL 

c 

RADHT 

REAL 

c 

RAD IT 

REAL 

c 

RADNT 

REAL 

c 

RECH 

REAL 

c 

RECLC 

REAL 

c 

RECLOA 

REAL 


Generator Subroutine Diagnostic Error Message 
Recuperator Subroutine Diagnostic Error Message 
Turbine Subroutine Diagnostic Error Message 
Compressor Adiabatic Efficiency, dmls 
Turbine Adiabatic Efficiency, dmls 
Working Fluid Flowrate at Statepoint "i", lbm/sec 
Gas Ratio of Specific Heats [Cv/Cp], dmls 
Working Fluid Constituant Gases, e.g., 'XENON 
'HELIUM 

Generator Rotor Aspect Ratio, Sleeve OD/Magnet Length 
Generator Type Descriptor 'RING WOUND TPTL PMG' 

Gross Electric Power at Generator Terminals, kWe 
Recup. Hydraulic Diam.; s=L or H for Loc., in. 

Electrical Interface Descriptor, either 'TRANSFORMER' 
or 'RECTIFIER' 

Output File [PROGSOUT] Switch, 0=0FF, 1,2,3= 

Increasing Detail in Output File 

Number of Axial Compressor Stages, dmls 

Number of Axial Turbine Stages, dmls 

Recup. Fin Thermal Conductivity; s=L or H for Loc., 

BTU/(hr-ft-R) [input] & BTU/(sec-ft-R) [code] 

Generator Output, kVA 

Recuperator Fin Equiv Length; s=L or H for Loc., in. 
Overall Length of Generator EM Section, inches 
Generator Design Lifetime, years 
Estimated Generator Electro-magnetic Mass, lbm 
Estimated Generator Mass w/ Integration Allowance, lbm 
Working Fluid Molecular Weight, lbm/(lb-mol) 

Net Shaft Power [turb-comp-bearings-widage] , kWs 

Recuperator Fins/inch; s= L or H for Location 

Old Tip Speed Value [used for convergence test], ft/sec 

3.14159265 

Repeating Sandwich Thickness in Recuperator Core, in. 
Generator Terminal Power, kWe 
Working Fluid Pressure Ratio Between Statepoints 
"i-1" and "i" 

Compressor Pressure Ratio [total -to-total ] , dmls 
Working Fluid Pressure at Statepoint "i", psia 
Prandtl No. Exponent Used in Heat Transfer Calcs., dmls 
Current Heat Transfer "Prandtl No.", dmls 
Load Power Factor at Generator Terminals [lagging] 

Heat Source Gross Thermal Power, kWt 

Thermal Loss for Section Ending at Statepoint "i", kWt 

Axial Compressor Flowpath Hub Radius, inches 

Axial Compressor Flowpath Inlet Tip Radius, inches 

Axial Compressor Flowpath Discharge Tip Radius, inches 

Axial Turbine Flowpath Hub Radius, inches 

Axial Turbine Flowpath Inlet Tip Radius, inches 

Axial Turbine Flowpath Discharge Tip Radius, inches 

Recuperator Core Height, inches 

Recuperator Core Length, inches 

Recuperator Overall Length, inches 
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C RECW REAL Recuperator Core Width, inches 

C RHOFINs REAL Recup. Fins Density; s=L or H for Location, lbm/cu in 

C ROPLAT REAL Recuperator Splitter Plate Density, lbm/cu in 

C ROBRAZ REAL Recuperator Braze Density, lbm/cu in 

C SIGMAs REAL Recup. Flow:Frontal Area Ratio; s=L or H for Loc., dmls 

C SPACES REAL Recuperator Plate Spacing; s=L or H for Location, in. 

C SPEED REAL Generator Design Rotating. Speed, rpm 

C TBRAZE REAL Recuperator Braze Thickness [4/ptch], inches 

C TEMP(i) REAL Working Fluid Temperature at Statepoint "i", deg R 

C TFINs REAL Recuperator Fins Thickness; s=L or H for Location, in. 

C TINCLNT REAL Specified Generator Coolant Inlet Temperature, deg R 

C TIPSPDG REAL Generator Rotor Surface Speed, ft/sec [limit is 700] 

C TITLER(8) CH*10 Description of Recuperator Core Matrix Geometry 

C TOUTCLNT REAL Specified Generator Coolant Outlet Temperature, deg R 

C TPLATE REAL Recuperator Splitter Plate Thickness, inches 

C TURBDIA REAL Radial Turbine Wheel Tip Diameter, inches 

C TURBSS REAL Turbine Specific Speed 

C TURBTYPE CH*10 Turbine Type, either 'AXIAL ' or 'RADIAL 
C TVAR(18) CH*10 Variable Names [as converted in SUBROUTINE SETUP] 

C UAMH REAL UA [heat transfer] DesignMargin for Recuperator High 

C Pressure Side, dmls 

C UAML REAL UA [heat transfer] DesignMargin for Recuperator Low 

C Pressure Side, dmls 

C UTIPC REAL Compressor [maximum for axial s] Tip Speed, ft/sec 

c UTIPT REAL Turbine [maximum for axials] Tip Speed, ft/sec 

C VOLTAGE REAL Desired Generator Output Voltage, 3Ph, line-line, RMS 

C WARNINGC CH*64 Compressor Subroutine Diagnostic Warning Message 

C WARNINGF CH*64 Fluid Properties Subroutine Diagnostic Warning Message 

C WARNINGG CH*64 Generator Subroutine Diagnostic Warning Message 

C WARNINGR CH*64 Recuperator Subroutine Diagnostic Warning Message 

C WARNINGT CH*64 Turbine Subroutine Diagnostic Warning Message 

C WCLNT REAL Calculated Coolant Flow Rate, lbm/sec 

C WGTDUCT(6) REAL Mass of the Individual Duct Segments, lbm 

C WDCTTOT REAL Total of Duct Masses, lbm 

C WGTHRA REAL Heat Rejection Assembly Mass, lbm 

C WGTHSA REAL Heat Source Assembly Mass, lbm 

C WGTREC REAL Recuperator Assembly Mass, lbm 

C WGTTAC REAL Turbo-alternator Assembly Mass, lbm 

C WGTTOT REAL Total PCU Mass, lbm 

C WINDAGE REAL Genrator Main Gap Windage Loss, kWs 

C XBLC REAL Bleed Fraction of Flow(l) Returned to Statepoint 

C #2 [comp wheel tip], fraction 

C XBLT REAL Bleed Fraction of Flow(l) Returned to Statepoint 

C #13 [turbine stage exit], fraction 

C 

C ********** Statepoint Definition ************** 

C 

C Statepoint Location 

C 

C Note: Total [stagnation] conditions except as noted. 

C 

C #1 Compressor Inlet 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


Note: Statepoints # 2, 3, 4 are relevant with radial compressors only 

# 2 Compressor Rotor Tip [static pressure] 

# 3 Compressor Diffuser Inlet 

# 4 Compressor Diffuser Exit [comp-end bleed flow added] 

# 5 Compressor Stage Exit [comp-end bleed flow removed] 

# 6 Recuperator High Pressure Flow Inlet 

# 7 Recuperator High Pressure Flow Discharge 

# 8 HSA Inlet 

# 9 HSA Discharge 

# 10 Turbine Inlet 

Note: Statepoints # 11 is relevant with radial turbines only 

# 11 Turbine Nozzel Exit 

# 12 Turbine Discharge 

# 13 Recuperator Low Pressure Flow Inlet [turb-end bleed flow added] 

# 14 Recuperator Low Pressure Flow Discharge 

# 15 HRA Inlet 

# 16 HRA Discharge 

# 17 Compressor Inlet Duct Exit [= to Statepoint #1] 


OPEN (60 , F I LE= ' CYC$ INP ' , F0RM= ' FORMATTED' , STATUS= ' OLD ' , 
&ACCESS=' SEQUENTIAL') 

**** p ea( j f rom data file the Brayton Cycle operating parameters 


READ (60,10) (CYCDES(I) , 1=1,8) 

READ (60,20) IPRINT, POWER, PWRFCTR, VOLTAGE, GENASP,XTEMP(9) 

READ (60,30) COMPTYPE , TURBTYPE , GENTYPE , INTTYPE , CLNTTYPE 
READ 60,40) GAS(l) ,GAS(2) ,CPCLNT,XTINCLNT,XTOUTCLNT,XBLC,XBLT 
READ (60,50) LIFETIME, FCTQ8,FCTQ10,FCTQ13 
READ (60,10) (TVAR(I) , 1=1,15) 

READ (60,50) (VAR(I),I=1,15) 

10 FORMAT (8A10) 

20 FORMAT (I5,5X,5E10.3) 

30 FORMAT (2A10,2A20,A10) 

40 FORMAT (2A10,5E10.3) 

50 FORMAT (8E10.3) 

CLOSE (60) 


*** Convert to english units for use in the program 


*** 


TEMP(9)=XTEMP(9)*1 .8 
TINCLNT=XTINCLNT*1 .8 
T0UTCLNT=XT0UTCLNT*1 .8 
XVAR(1)=VAR(1) 

VAR(1)=XVAR(1)*1 .8 

IF (IPRINT. GT.O) OPEN (61 , FI LE=' PROG$OUT' , FORM=' FORMATTED' , 
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& STATUS= ' OLD' , ACCESS= ' SEQUENTIAL ' ) 

C **** Read from data file the recuperator geometry definition. 

OPEN (60,FILE='REC$INP' , FORM= ' FORMATTED ' , STATUS= ' OLD ' , 

&ACCESS=' SEQUENTIAL') 

CALL RECINP 
CLOSE (60) 

q **** RG 3 d data fils for ths IHX ********************************** 

OPEN (60,FILE=' IHXSINP' , FORM=' FORMATTED' ,STATUS='OLD' , 

&ACCESS=' SEQUENTIAL') 

C Read input data from data file "IHXSINP" 

READ (60,95) IHXFLG, XUEST1, XTHIN1, XTHOUT1, XTTUBE1 , ANPLATES1 
READ (60,96) XAKTUBE1, XTINS1, XDENINS1, XDENSSH1, XDTUBE1 

95 FORMAT ( 110, 5F10 . 5) 

96 FORMAT (5F10.5) 

C ** CONVERT TO ENGINEERING UNITS FOR CALCULATIONS 

UEST1=XUEST1*3600. *(0. 3048**2. )/(1054. 4*1. 8) 

THIN1=XTHIN1*1 .8 
TH0UT1=XTH0UT1*1 .8 
TTUBEl=XTTUBEl/2 . 54 

AKTUBE1=XAKTUBE1*3600 . *0 . 3048/ (1054.4*1.8) 

TINSl=XTINSl/2.54 

DENINS1=XDENINS1*(2.54**3. )*(12.**3. )/ 454 . 

DENSSH1=XDENSSH1*(2. 54**3 . )*( 12 .**3 . )/454. 

DTUBEl=XDTUBEl/2 . 54 

CLOSE(60) 


Q ******************************************************************* 

C If required, read data file for heat rejection gas cooler 

OPEN (60, FILE='GC$INP' , FORM= ' FORMATTED ' , STATUS= ' OLD ' , 
&ACCESS='SEQUENTIAL' ) 

CLOSE(60) 


Q ******************************************************************* 


OPEN ( 60 , F I LE= ' DUCTS I NP ' , F0RM= ' FORMATTED ' , STATUS= ' OLD ' , 
&ACCESS='SEQUENTIAL' ) 

C Read input data from data file "DUCT&INP" 

READ (60,100) (ELI (I) , 1=1,6) 
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READ (60,100) 
READ (60,200) 
READ (60,200) 
READ (60,100) 
READ (60,200) 
READ (60,200) 
READ (60,200) 


( EL2 ( I ) , 1=1,6) 
(XTWL(I) , 1=1,6) 
(XDNWL(I) , 1=1,6) 
(NMFI(I) , 1=1,6) 
(XTMFI(I), 1=1,6) 
(XDMFI(I), 1=1,6) 
(ETA(I) , 1=1,6) 


C *** Convert to engineering units for calculations 
DO 98 1=1,6 
TWL ( I ) =XTWL ( I )/2 . 54 
DNWL(I) =XDNWL ( I ) * ( 1 . /453 . 6 ) * ( 2 . 54**3 ) 

TMFI ( I )=XTMFI( IJ/2.54 

DMFI ( I )=XDMFI (I)*(l ./453.6)*(2. 54**3) 

98 CONTINUE 


100 FORMAT (6F10.3) 

200 FORMAT (6F10.5) 

CLOSE(60) 

C **** Call the Brayton system and component design routines. 


CALL BRAYTON 


END 


SUBROUTINE BRAYTON 

C **** BRAYTON is checked-out and final on October 6, 1992 
$DEBUG 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JCON 

CHARACTER*^ GAS(2) ,CYCDES(8) ,TITLER(8) ,TVAR(18) , 

& COMPTYPE , TURBTYPE , CLNTTYPE 
CHARACTER*20 GENTYPE, INTTYPE 

CHARACTER*64 ERRORT, ERRORC, ERRORR, ERRORG,ERRORF, WARN INGT, WARN INGC, 
& WARN I NGR , WARN I NGG 

CHARACTER*60 ERR1 , ERR2, ERR3, ERR4, ERR5, ERR6, ERR7 , ERR8, 

& ERR9, ERR10, ERR11 , ERR12 

COMMON/D I AGNOS/ ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT, 

& WARN INGC, WARN I NGR, WARN I NGG 
COMMON/OUTP/WGTTOT , WGTTAC , RECLC , RECLOA, RECH , RECW 
COMMON/CONF IG/COMPTYPE , TURBTYPE , GENTYPE , INTTYPE , CLNTTYPE 
COMMON/ALTERNTR/DGENRTR, DGENSTR , LGENTOT , MASSGEN , T I PSPDG , COE , 

& ETAGEN , COOL I NG , WC LNT , VOLTAGE , KVA , GENASP , TINCLNT , TOUTCLNT , 

& CPCLNT, LIFETIME 

C0MM0N/AER0DYN/ETAC0MP,C0MPDIA,UTIPC,RADHC,RAD1C, 
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& RADNC , ANSQC , ANSQCL , COMPSS , I STGC , ETATURB , TURBDI A, UT I PT , 

& RADHT , RAD1T , RADNT , ANSQT , ANSQTL , TURBSS , I STGT 
COMMON/OPTIM/ VAR(18) ,TVAR, IPRINT 
COMMON/FLU ID/ GAS , GAMMA , MOLWT , CP , PRNDTL 
COMMON/TITLE/ CYCDES,TITLER 

COMMON /DUCT 11/ I DUCT, PIN, POUT, MDOT, TIN, MW 
COMMON/DUCT I 2/ ELI (6), EL2(6), TWL(6), DNWL(6), NMFI(6), 

& TMFI(6) , DMFI (6) , ETA(6) 

COMMON /DUCTOUT/ WGTDUCT(6), DIAM(6), LGTH(6) , VGAS(6) 

COMMON /DUCTERR/ ERR1, ERR2, ERR3, ERR4, ERR5, ERR6, ERR7, ERR8, 

& ERR9, ERRIO, ERR11 , ERR12 

COMMON/HSACALCS/ QHSA,WGTHSA,DP9 
COMMON/HRACALCS/ QHRA,WGTHRA,DP16 

COMMON/LOSS/ QL0SS8, QL0SS9 , QLOSSIO , QL0SS13, FCTQ8, FCTQIO, FCTQ13 
COMMON/CYCLE/TEMP(17) , PRESS (17) , FLOW(17) ,PR(17) ,BETA,COMFLO, 

& PRC, EFFC,EFFT,EFFR,EFFA,XBLC,XBLT, SPEED, POWER, PWRFCTR, 

& DPOP6,DPOP7,DPOP8,DPOP9,DPOP10,DPOP13,DPOP14,DPOP15, 

& DPOP16,DPOP17,NETSP,GROSSEP,EFFCYCLE, WINDAGE 
COMMON/GASBRG/BRGLOSS 

COMMON/RECUP/ DPOPREC , UAML , UAMH , DPML , DPMH , 

& PREXP,NFINL,TFINL,SPACEL,LEQL,ROFINL,KFINL,NFINH,TFINH,SPACEH, 

& LEQH, ROF I NH , KF I NH , TPLATE , ROPLAT , TBRAZE, ROBRAZ , 

& S I GMAL , AL PHAL , AF I N L , APLATL , HDL , S I GMAH , ALPHAH , AF INH , APLATH , HDH , 

& PITCH WGTREC 

COMMON/MASSES/MASSCMP , MASSTRB , MWHLC , MWHLT , MSFTC , MSFTT , MCASEC , 

& MCASET,MDIAC,MDIAT 

COMMON/ I HX/ DPSHELL1 ,ANTUBES1 ,DPTUBE1 ,DOTL21 ,ALSHEL1 ,AMSHELL1 , 

& AMPLATES1 , AMTUBES1 , AMINSUL1 ,AMHEADS1 , AMSTRT1 ,ANETMASS1 , XMNHEX1 , 

& HSHELL1 , AFRIC1 , UNEW1 , RETUBE1 ,THC1 , AMTSHT1 , PRATIO, IHXFLG, UEST1, 
& THIN1 , THOUT1 , TTUBE1, ANPLATES1.AKTUBE1, TINS1, DENINS1 , 

& DENSSH1, DTUBE1 


COMMON/CONST/ PI , RU , GO , JCON , RZERO 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


********** Nomenclature ********* 


AFINs 

ALPHAS 

ANSQCL 

ANSQT 

ANSQTL 

APLATs 

BETA 

BRGLOSS 

CLNTTYPE 

COE 

COMFLO 

COMPDIA 

COMPSS 

COMPTYPE 


REAL Recup. Fin Area/Volume; s=L or H for Loc., sq in/cu in 
REAL Recup. Total Heat Tr. Area/Vol ; s=L or H for Loc., dmls 
REAL Approximate AN A 2 Limit for Axial Compressors, sq in-rpm A 2 
REAL Flow Area x Speed A 2 for Axial Turbines, sq in-rpm A 2 

REAL Approximate AN A 2 Limit for Axial Turbines, sq in-rpm A 2 

REAL Recup. Plate Area/Vol.; s=L or H for Loc., sq in/cu in 

REAL Turbine Pressure Ratio/Compressor Pressure Ratio, dmls 

REAL Rotor Bearing Parasitic Loss, kWs 

CH*10 Generator Coolant Descripptor, e.g., 'N-HEPTANE 
REAL Current Rotor Sizing Coefficient [=f (TIPSPDG,KVA) ] 

REAL Compressor Inlet Flowrate, lbm/sec 

REAL Radial Compressor Wheel Tip Diameter, inches 

REAL Compressor Specific Speed 

CH*10 Compressor Type, either 'AXIAL' or 'RADIAL' 
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c 

COOLING 

REAL 

c 

CP 

REAL 

c 

CPCLNT 

REAL 

c 

CYCDES(8) 

CH*10 

c 

DIAM(6) 

REAL 

c 

DGENRTR 

REAL 

c 

DGENSTR 

REAL 

c 

DPMH 

REAL 

c 



c 

DPML 

REAL 

c 



c 

DPOPi 

REAL 

c 



c 

DPOPREC 

REAL 

c 



c 

EFFC 

REAL 

c 

EFFCYCLE 

REAL 

c 

EFFT 

REAL 

c 

EFFR 

REAL 

c 

ERRORC 

CH*64 

c 

ERRORF 

CH*64 

c 

ERRORG 

CH*64 

c 

ERRORR 

CH*64 

c 

ERRORT 

CH*64 

c 

ETACOMP 

REAL 

c 

ETATURB 

REAL 

c 

FCTQi 

REAL 

c 

FLOW ( i ) 

REAL 

c 

GAMMA 

REAL 

c 

GAS ( 2 ) 

CH*10 

c 



c 

GENASP 

REAL 

c 

GENTYPE 

CH*20 

c 

GROSSEP 

REAL 

c 

HDs 

REAL 

c 

INTTYPE 

CH*20 

c 



c 

IPRINT 

INTEG 

c 



c 

ISTGC 

INTEG 

c 

ISTGT 

INTEG 

c 

KFINs 

REAL 

c 



c 

KVA 

REAL 

c 

LEQs 

REAL 

c 

LGENTOT 

REAL 

c 

LGTH(6) 

REAL 

c 

LIFETIME 

REAL 

c 

MASSEM 

REAL 

c 

MASSGEN 

REAL 


Generator Induced Cooling Load [EM + windage], kWt 
Working Fluid Specific Heat [Cp], BTU/(lbm-R) 

Coolant Specific Heat, BTU/(lbm-R) 

Descriptive Title for Current Case 

Inside diameter of individual duct segments 
Generator Rotor Diameter Including Sleeve, inches 
Generator Stator Diameter Including Sleeve, inches 
DP [pressure loss] Design Margin for Recuperator High 
Pressure Side, dmls 

DP [pressure loss] Design Margin for Recuperator Low 
Pressure Side, dmls 

Fractional Pressure Loss for Section Ending at 
Statepoint "i", kWt 

Total Recuperator [both passages] Fractional Pressure 
Loss, dmls 

Compressor Adiabatic Efficiency, dmls 

Cycle Ef f i ci ency=GROSSEP/Net Thermal Input to Gas, dmls 

Turbine Adiabatic Efficiency, dmls 

Recuperator , dmls 

Compressor Subroutine Diagnostic Error Message 
Fluid Properties Subroutine Diagnostic Error Message 
Generator Subroutine Diagnostic Error Message 
Recuperator Subroutine Diagnostic Error Message 
Turbine Subroutine Diagnostic Error Message 
Compressor Adiabatic Efficiency, dmls 
Turbine Adiabatic Efficiency, dmls 
Thermal Loss at Statepoint "i", Fraction of Input Q 
Working Fluid Flowrate at Statepoint "i", lbm/sec 
Gas Ratio of Specific Heats [Cv/Cp], dmls 
Working Fluid Constituant Gases, e.g., 'XENON ', 
'HELIUM 

Generator Rotor Aspect Ratio, Sleeve OD/Magnet Length 
Generator Type Descriptor 'RING WOUND TPTL PMG' 

Gross Electric Power at Generator Terminals, kWe 
Recup. Hydraulic Diam.; s=L or H for Loc., in. 
Electrical Interface Descriptor, either 'TRANSFORMER' 
or 'RECTIFIER' 

Output File [PROGSOUT] Switch, 0=0FF, 1=0N 

Increasing Detail in Output File 

Number of Axial Compressor Stages, dmls 

Number of Axial Turbine Stages, dmls 

Recup. Fin Thermal Conductivity; s=L or H for Loc., 

BTU/(hr-ft-R) [input] & BTU/(sec-ft-R) [code] 

Generator Output, kVA 

Recuperator Fin Equiv Length; s=L or H for Loc., in. 
Overall Length of Generator EM Section, inches 
Length of individual duct segments, in 
Generator Design Lifetime, years 

Estimated Generator Electro-magnetic Mass, lbm 
Estimated Generator Mass w/ Integration Allowance, lbm 


48 



c 

MOLWT 

REAL 

c 

NETSP 

REAL 

c 

NFINs 

REAL 

c 

OLDTS 

REAL 

c 

PI 

REAL 

c 

PITCH 

REAL 

c 

POWER 

REAL 

c 

PR(i) 

REAL 

c 



c 

PRC 

REAL 

c 

PRESS(i) 

REAL 

c 

PREXP 

REAL 

c 

PRNDTL 

REAL 

c 

PWRFCTR 

REAL 

c 

QHSA 

REAL 

c 

QLOSSi 

REAL 

c 

RADHC 

REAL 

c 

RAD1C 

REAL 

c 

RADNC 

REAL 

c 

RADHT 

REAL 

c 

RAD1T 

REAL 

c 

RADNT 

REAL 

c 

RECH 

REAL 

c 

RECLC 

REAL 

c 

RECLOA 

REAL 

c 

RECW 

REAL 

c 

RHOFINs 

REAL 

c 

ROPLAT 

REAL 

c 

ROBRAZ 

REAL 

c 

SIGMAs 

REAL 

c 

SPACES 

REAL 

c 

SPEED 

REAL 

c 

TBRAZE 

REAL 

c 

TEMP(i) 

REAL 

c 

TFINs 

REAL 

c 

TINCLNT 

REAL 

c 

TIPSPDG 

REAL 

c 

TITLER(8) 

CH*10 

c 

TOUTCLNT 

REAL 

c 

TPLATE 

REAL 

c 

TURBDIA 

REAL 

c 

TURBSS 

REAL 

c 

TURBTYPE 

CH*10 

c 

TVAR(18) 

CH*10 

c 

UAMH 

REAL 

c 



c 

UAML 

REAL 

c 



c 

UTIPC 

REAL 

c 

UTIPT 

REAL 


Working Fluid Molecular Weight, lbm/(lb-mol) 

Net Shaft Power [turb-comp-bearings-widage] , kWs 

Recuperator Fins/inch; s= L or H for Location 

Old Tip Speed Value [used for convergence test], ft/sec 

3.14159265 

Repeating Sandwich Thickness in Recuperator Core, in. 
Generator Terminal Power,. kWe 
Working Fluid Pressure Ratio Between Statepoints 
" i - 1 " and "1" 

Compressor Pressure Ratio [total -to-total ] , dmls 
Working Fluid Pressure at Statepoint "i", psia 
Prandtl No. Exponent Used in Heat Transfer Calcs., dmls 
Current Heat Transfer "Prandtl No.", dmls 
Load Power Factor at Generator Terminals [lagging] 

Heat Source Gross Thermal Power, kWt 

Thermal Loss for Section Ending at Statepoint "i", kWt 

Axial Compressor Flowpath Hub Radius, inches 

Axial Compressor Flowpath Inlet Tip Radius, inches 

Axial Compressor Flowpath Discharge Tip Radius, inches 

Axial Turbine Flowpath Hub Radius, inches 

Axial Turbine Flowpath Inlet Tip Radius, inches 

Axial Turbine Flowpath Discharge Tip Radius, inches 

Recuperator Core Height, inches 

Recuperator Core Length, inches 

Recuperator Overall Length, inches 

Recuperator Core Width, inches 

Recup. Fins Density; s=L or H for Location, lbm/cu in 
Recuperator Splitter Plate Density, lbm/cu in 
Recuperator Braze Density, lbm/cu in 
Recup. FlowrFrontal Area Ratio; s=L or H for Loc., dmls 
Recuperator Plate Spacing; s=L or H for Location, in. 
Generator Design Rotating Speed, rpm 
Recuperator Braze Thickness [4/ptch], inches 
Working Fluid Temperature at Statepoint "i", deg R 
Recuperator Fins Thickness; s=L or H for Location, in. 
Specified Generator Coolant Inlet Temperature, deg R 
Generator Rotor Surface Speed, ft/sec [limit is 700] 
Description of Recuperator Core Matrix Geometry 
Specified Generator Coolant Outlet Temperature, deg R 
Recuperator Splitter Plate Thickness, inches 
Radial Turbine Wheel Tip Diameter, inches 
Turbine Specific Speed 

Turbine Type, either 'AXIAL ' or 'RADIAL ' 
Variable Names [as converted in SUBROUTINE SETUP] 

UA [heat transfer] DesignMargin for Recuperator High 
Pressure Side, dmls 

UA [heat transfer] DesignMargin for Recuperator Low 
Pressure Side, dmls 

Compressor [maximum for axial s] Tip Speed, ft/sec 
Turbine [maximum for axial s] Tip Speed, ft/sec 
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C VGAS(6) REAL Velocity of the gas in individual duct segments, ft/sec 

C VOLTAGE REAL Desired Generator Output Voltage, 3Ph, line-line, RMS 

C WARNINGC CH*64 Compressor Subroutine Diagnostic Warning Message 

C WARNINGF CH*64 Fluid Properties Subroutine Diagnostic Warning Message 
C WARNINGG CH*64 Generator Subroutine Diagnostic Warning Message 

C WARNINGR CH*64 Recuperator Subroutine Diagnostic Warning Message 

C WARNINGT CH*64 Turbine Subroutine Diagnostic Warning Message 

C WCLNT REAL Calculated Coolant Flow Rate, lbm/sec 

C WGTDUCT (6) REAL Mass of the individual duct segments with MFI , lbm 
C WDCTTOT REAL Total of Duct Masses, lbm 

C WGTHRA REAL Heat Rejection Assembly Mass, lbm 

C WGTHSA REAL Heat Source Assembly Mass, lbm 

C WGTREC REAL Recuperator Assembly Mass, lbm 

C WGTTAC REAL Turbo-alternator Assembly Mass, lbm 

C WGTTOT REAL Total PCU Mass, lbm 

C WINDAGE REAL Genrator Main Gap Windage Loss, kWs 

C XBLC REAL Bleed Fraction of Flow(l) Returned to Statepoint 

C #2 [comp wheel tip], fraction 

C XBLT REAL Bleed Fraction of Flow(l) Returned to Statepoint 

C #13 [turbine stage exit], fraction 

C 

C ********** statepoint Definition ************** 

C 

C Statepoint Location 

C 

C Note: Total [stagnation] conditions except as noted. 

C 

C #1 Compressor Inlet 

C 

C Note: Statepoints # 2, 3, 4 are relevant with radial compressors only 
C 

C #2 Compressor Rotor Tip [static pressure] 

C #3 Compressor Diffuser Inlet 

C #4 Compressor Diffuser Exit [comp-end bleed flow added] 

C #5 Compressor Stage Exit [comp-end bleed flow removed] 

C #6 Recuperator High Pressure Flow Inlet 

C #7 Recuperator High Pressure Flow Discharge 

C #8 HSA Inlet 

C #9 HSA Discharge 

C # 10 Turbine Inlet 

C 

C Note: Statepoints # 11 is relevant with radial turbines only 
C 

C # 11 Turbine Nozzel Exit 

C # 12 Turbine Discharge L , , , 

C # 13 Recuperator Low Pressure Flow Inlet [turb-end bleed flow added] 

C # 14 Recuperator Low Pressure Flow Discharge 

C # 15 HRA Inlet 

C # 16 HRA Discharge 

C # 17 Compressor Inlet Duct Exit [= to Statepoint #1] 

C 
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C **** Define the efficiencies, masses, sizes of the resulting PCU components 
C **** This subroutine sizes a single PCU at the specified power level. 

C **** Initialize certain cycle parameters with appropriate starting values. 

PRESS ( 1 ) =100 . 

EFFC=.85 

EFFT=.9 

EFFA=.96 

M0LWT=VAR(3) 

WINDAGE=0. 

BRGL0SS=0. 

COOLING=0 . 

C **** Call SUBROUTINE SETUP to load independent cycle parameters desired. 
CALL SETUP 

C **** Load tanspoert parameters for working fluid; binary mixture or 
C **** single Noble gas. 

CALL GASPROP 


C **** Compute Brayton statepoints, efficiencies, losses 
CALL STATEPT 

C ***** Error trap inserted following telecon with LeRC, 7-9-93 ** 


IF (ERRORC.EQ. 

&' Negative compressor inlet pressure predicted in STATEPT') RETURN 
c ****************************************************************** 


**** Compute Intermediate Heat Exchanger (IHX) size and mass. 
**** jhe IHX code, " IHXSHEL" , size the IHX. The code "IHXSHEL" 
iterates on "PRATIO" (tube pitch ratio) until the desired 
gas side pressure drop is achieved. 


**** i n p U t data required for IHXSHEL 


data file IHXflg 
data file UEST1 
data file THIN1 
data file TH0UT1 
PH0T1 
TCIN1 
TC0UT1 
WDOTS1 
AMWS1 

data file TINS1 
data file DENINS1 


- l=Lithium, 2=NaK 

- Initial value for U overall (Btu/hr-ft2-R) 

- Hot side inlet temperature, R 

- Hot side outlet temperature, R 

- Gas side inlet pressure, psia 

- Cold (gas) side inlet temperature, R 

- Cold (gas) side outlet temperture, R 

- Shell (gas) side fluid flow rate, lbm/s 

- Molecular weight of He/Xe mixture, Ibm/lbmole 

- Insulation thickness, in 

- Bulk density of insulation, lbm/ft3 
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data file DENSSH1 
data file DTUBE1 
PRAT 10 

data file TTUBE 
data file ANPLATES 
WDOTT 

data file AKTUBE 
QDOT 


- Density of shell, lbm/ft3 

- Inside diameter of heat exchanger tubes, in 

- Tube pitch ratio (ITERATED TO GET DESIRED DP) 

- Tube wall thickness, in 

- Number of support plates 

- Tube side mass flow rate, Ibm/s 

- Tube wall thermal conductivity, Btu/hr-ft-R 

- Heat rate or duty, Btu/hr 


C note - the items read in via the data file were converted to 
c engineering after being read in. The data contained in the 

c data file are in SI units. 


C The following is the cycle data required to size the heat exchanger 
PH0T1=PRESS(8) 

TCIN1=TEMP(8) 

TC0UT1=TEMP(9) 

WD0TS1=FL0W(8) 

AMWS1=M0LWT 

QD0T1=FL0W(8)*(4 .97/M0LWT)*(TEMP(9) -TEMP (8) ) *3600. 
c *************** corrected Taverage computation, 7-30-93 ***** 


TAVERAGE=(THIN1+TH0UT1 )/2 . 0 


c ******************************************************** 

CALL X L I TH P ( T AV ERAG E , BBRHO , C PHOT , BB V I S , BBTK ) 

IF (IHXFLG .EQ. 2) THEN 

CALL XNAKPR (TAVERAGE , BBRHO , CPHOT , BBV I S , BBTK) 

END IF 

WD0TT1 =QD0T 1/ ( (CPHOT ) * (TH I N 1 -TH0UT1 ) *3600 . ) 

C Iterate on the pitch ratio until the desired gas side pressure drop 
C is achieved 

PRATI0=2.0 


2 CALL IHXSHEL ( IHXf 1 g , UEST1 , TH INI , THOUT 1 , PH0T1 , TC IN 1 , T COUT 1 , WDOT S 1 , 
&AMWS1 ,TINS1 ,DENINS1 ,DENSSH1 , DTUBE1 , P RATIO, TTUBE1,ANPLATES1 , 
&WDOTT1 , AKTUBE1 , QDOT1 , DPSHELL1 , ANTUBES1 ,DPTUBE1 ,DOTL21 , ALSHEL1 , 
&AMSHELL1 ,AMPLATES1 , AMTUBES1 ,AMINSUL1 ,AMHEADS1,AMSTRT1 ,ANETMASS1 , 
&XMNHEX1 ,HSHELL1 ,AFRIC1 ,UNEW1 ,RETUBE1 ,THC1,AMTSHT1) 

DP=PRESS(8) - PRESS ( 9 ) 

DELTA=DPSHELL1-DP 
ERR0R=ABS (DELTA/DP) 

IF (ERROR. GT.. 05) THEN 
PRATI0=PRATI0*(l+( (DELTA/DP)*. 1)) 

WD0TS1=FL0W(8) 

QDOTl=FLOW(8)*(4.97/MOLWT)*(TEMP(9) -TEMP(8) )*3600. 
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TAVERAGE=(THINl+TH0UTl)/2 . 0 

CALL XLITHP(TAVERAGE, BBRHO, CPHOT, BBVIS , BBTK) 

IF (IHXFLG .EQ. 2) THEN 

CALL XNAKPR (TAVERAGE , BBRHO , C PHOT , BBVIS, BBTK) 
END IF 

WDOTT 1 =QDOT 1/ ( (CPHOT ) * (TH IN 1 - THOUT 1 ) *3600 . ) 
GO TO 2 
END IF 

C ** Output from the heat exchanger sizing 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


DPSHELL1 - 
ANTUBES1 - 
DPTUBE1 - 
D0TL21 - 
ALSHEL1 - 
AMSHELL1 - 
AMPLATES1- 
AMTUBES1 - 
AMINSUL1 - 
AMHEADS1 - 
AMSTRT1 - 
ANETMASS1- 
XMNHEX1 - 
HSHELL1 - 
AFRIC1 - 
UNEW1 

RETUBE1 - 
THC1 

AMTSHT1 - 


shell side pressure drop, psi 

number of heat exchanger tubes 

tube side pressure drop, psi 

diameter of the heat exchanger shell, in 

length of the heat exchanger shell, in 

mass of the shell, lbm 

mass of the plates, lbm 

mass of the tubes, lbm 

mass of the insulation, lbm 

mass of the heads, lbm 

mass of structure and brackets, lbm 

net mass of the shell and tube unit, lbm 

mass of the tubeside fluid, lbm 

shell side h 

friction factor 

overall U, Btu/hr-ft2-R 

tubeside Reynolds number 

tubeside h, Btu/hr-ft2-R 

mass of the tubesheets, lbm 


************************************************************* 


*** At this point the code will call the heat rejection module. 

The overall integrator of the code must: 

1. Provide appropriate cycle data required by the heat rejection 
c module 

C 2. Provide any geometry related information, if any, for the 
c heat rejection module. 

c 3. Provide the required iteration routine to get the desired 
c gas side pressure drop on the heat rejection gas cooler, 

c The heat rejection gas cooler routine is identical to the 

c IHX routine. Iterating on the tube pitch ratio, as done 

c with the IHX, will be required. 

C ****************************************************************** 

C **** Evaluate ducting size and mass. 

ERR1=' ' 

ERR2=' ' 

ERR3=' ' 
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ERR4=' ' 

ERR5=' ' 

ERR6=' ' 

ERR7=' ' 

ERR8=' ' 

ERR9=' ' 

ERR10=' ' 

ERR11=' ' 

ERR1 2= ' ' 

IDUCT = 1 
PIN = PRESS ( 5 ) 

POUT = PRESS (6) 

TIN = TEMP ( 5 ) 

MDOT = FLOW(5) 

MW = MOLWT 

CALL DUCTING 

IDUCT = 2 

IF (EFFR .GT. O.O) THEN 
PIN = PRESS(7) 

POUT = PRESS(8) 

TIN = TEMP(7) 

MDOT = FLOW ( 7 ) 

MW = MOLWT 
CALL DUCTING 
END IF 

IDUCT = 3 
PIN = PRESS (9) 

POUT = PRESS(IO) 

TIN = TEMP(9) 

MDOT = F LOW ( 9 ) 

MW = MOLWT 
CALL DUCTING 

IDUCT = 4 
PIN = PRESS ( 12 ) 

POUT = PRESS (13) 

TIN = TEMP( 12) 

MDOT = FL0W(12) 

MW = MOLWT 
CALL DUCTING 

IDUCT = 5 

IF (EFFR .GT. 0.0) THEN 
PIN = PRESS (14) 

POUT = PRESS (15) 

TIN = TEMP(14) 

MDOT = FLOW (14) 

MW = MOLWT 


54 


CALL DUCTING 
END IF 


IDUCT = 6 
PIN = PRESS (16) 
POUT = PRESS (17) 
TIN = TEMP(16) 
MDOT = F LOW (16) 
MW = MOLWT 
CALL DUCTING 


C **** Evaluate recuperator heat transfer, pressure loss, size and mass. 
CALL RECSIZE 

C **** Compute the mass of the TAC and remaining system components. 

CALL TAC 

C **** Sum the fout to six duct masses (dependent on recuperation scheme). 
WDCTTOT=0. 

C **** Compute total mass for one PCU (single TAC/recup/hxda) . 

WGTTOT=WGTHRA+WDCTTOT+WGTTAC+WGTREC+WGTHSA 
IF ( I PRINT . GT . 0 ) THEN 
CALL OUTPUT 
CLOSE (61) 

END IF 
RETURN 
END 


SUBROUTINE SETUP 

C **** SETUP is checked-out and final on October 6, 1992 
IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JCON 

CHARACTER* 10 GAS(2) ,CYCDES(8) ,TITLER(8) ,TVAR(18) , 

& COMPTYPE , TURBTYPE , CLNTTYPE 
CHARACTER*20 GENTYPE, INTTYPE 

COMMON/CONF IG/COMPTYPE , TURBTYPE , GENTYPE , INTTYPE , CLNTTYPE 
COMMON/AERODYN/ ETACOMP , COMPD I A , UT I PC , RADHC , RADI C , 

& RADNC , ANSQC , ANSQCL , COMPSS , ISTGC, ETATURB , TURBDIA, UT I PT , 

& RADHT , RAD1T , RADNT , ANSQT , ANSQTL, TURBSS , ISTGT 
COMMON/OPT I M/ VAR (18) ,TVAR, I PRINT 
COMMON/ F LU I D/ GAS , GAMMA , MOLWT , C P , PRNDTL 
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COMMON/TITLE/ CYCDES,TITLER 
COMMON/HSACALCS/ QHSA,WGTHSA,DP9 

COMMON/LOSS/ QL0SS8 , QLOSS9 , QL0SS10 , QL0SS13 , FCTQ8 , FCTQIO , FCTQ13 
COMMON/CYCLE/TEMP(17) , PRESS (17) , FLOW(17) ,PR(17) ,BETA,COMFLO, 

& PRC, EFFC,EFFT,EFFR,EFFA,XBLC,XBLT, SPEED, POWER, PWRFCTR, 

& DPOP6 , DPOP7 , DP0P8 , DPOP9 , DPOPIO , DPOP13 , DPOP14 , DPOP1 5 , 

& DPOP16,DPOP17,NETSP,GROSSEP,EFFCYCLE, WINDAGE 
COMMON/GASBRG/BRGLOSS 

COMMON/RECUP/ DPOPREC , UAML , UAMH , DPML , DPMH , 

& PREXP,NFINL,TFINL,SPACEL,LEQL,ROFINL,KFINL,NFINH,TFINH,SPACEH, 

& LEQH, ROF I NH , KF I NH , TPLATE , ROPLAT , TBRAZE, ROBRAZ , 

& S I GMAL , ALPHAL , AF I NL , APLATL , HDL , S I GMAH , ALPHAH , AF INH , APLATH , HDH , 

& PITCH, WGTREC 

C COMMON/RADTR/ PREXPM , T ITLER , EPS I LON , ETAFINR , HPRED , RADSM , NF INM , 
COMMON/CONST/ P I , RU , GO , JCON , RZERO 

C **** Load desired design parameters form the input variable array. 

TEMP ( 1 ) =VAR( 1 ) 

PRC=VAR(2) 

MOLWT=VAR(3) 

EFFR=VAR(4) 

COMPSS=VAR(5) 

SPEED=VAR(6) 

DPOP6=VAR(7) 

DP0PREC=VAR(8) 

DP0P8=VAR(9) 

DP0P9=VAR(10) 

DP0P10=VAR (11) 

DPOP13=VAR(12) 

DPOP1 5=VAR (13) 

DPOP16=VAR(14) 

DPOP17=VAR(15) 

C **** If EFFR = 0. the cycle is unrecuperated, if > 0. is recuperated. 

IF (EFFR.GT.O. ) THEN 
DP0P7=1 . - (1 . -DPOPREC)**. 4 
DP0P14=1.-(1. -DPOPREC)**. 6 
ELSE 

C **** Without recuperator present, duct losses are defined by DP0P6, 

C **** DPOPIO, DP0P13, and DP0P17. 

DPOP7=0 . 

DPOP14=0. 

DP0P8=0. 

VAR(9)=0. 

DP0P15=0. 

VAR( 13 ) =0 . 
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END IF 


RETURN 

END 


SUBROUTINE OUTPUT 

C **** OUTPUT is checked-out and final on October 6, 1992 
IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JCON 

CHARACTER* 10 GAS (2) , CYCDES (8) ,TITLER(8) ,TVAR(18) , 

& COMPTYPE , TURBTYPE , CLNTTYPE 
CHARACTER*20 GENTYPE, INTTYPE 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , WARN I NGC , 
& WARN I NGR , WARN I NGG 

CHARACTER*60 ERR1 , ERR2, ERR3, ERR4, ERR5, ERR6, ERR7, ERR8, 

& ERR9, ERR10, ERR11 , ERR12 

COMMON/D I AGNOS/ ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT, 

& WARN I NGC, WARN I NGR, WARN I NGG 

COMMON/CONF IG/COMPTYPE , TURBTYPE , GENTYPE , INTTYPE , CLNTTYPE 
COMMON/ALTERNTR/DGENRTR , DGENSTR , LGENTOT , MASSGEN , TI PSPDG , COE , 

& ETAGEN , COOLING , WCLNT , VOLTAGE , KVA, GENASP , TINCLNT , TOUTCLNT , 

& CPCLNT, LIFETIME 

COMMON/AERODYN/ETACOMP , COMPDIA , UTI PC , RADHC , RAD1C , 

& RADNC , ANSQC , ANSQCL, COMPSS , ISTGC , ETATURB , TURBDIA, UTI PT , 

& RADHT , RAD1T , RADNT , ANSQT , ANSQTL , TURBSS , ISTGT 
COMMON/OPTIM/ VAR( 18) ,TVAR, I PRINT 
COMMON/OUTP/ WGTTOT , WGTTAC , REC LC , REC LOA , RECH , RECW 
COMMON/FLU I D/ GAS , GAMMA , MOLWT , CP , PRNDTL 
COMMON/TITLE/ CYCDES, TITLER 

COMMON /DUCTOUT/ WGTDUCT(6), DIAM(6), LGTH(6) , VGAS(6) 

COMMON /DUCTERR/ ERR1, ERR2, ERR3, ERR4, ERR5, ERR6, ERR7 , ERR8, 

& ERR9, ERR10, ERR11, ERR12 

COMMON/CONVERT/ XTEMP(17), XPRESS(17), XFL0W(17), XDIAM(6), 

& XLGTH(6) , XVGAS(6) , XWGTDUCT(6) 

COMMON/HSACALCS/ QHSA,WGTHSA,DP9 
COMMON/HRACALCS/ QHRA, WGTHRA,DP16 

COMMON/LOSS/ QL0SS8 , QL0SS9 , QL0SS10 , QL0SS13 , FCTQ8, FCTQ10, FCTQ13 
COMMON/C YC LE/TEMP ( 17), PRESS ( 1 7 ) , FLOW ( 1 7 ) , PR ( 1 7 ) , BETA, COMFLO , 

& PRC, EFFC,EFFT,EFFR,EFFA,XBLC,XBLT, SPEED, POWER, PWRFCTR, 

& DPOP6,DPOP7,DPOP8,DPOP9,DPOP10,DPOP13,DPOP14,DPOP15, 

& DP0P16,DP0P17,NETSP,GR0SSEP,EFFCYCLE, WINDAGE 
COMMON/GASBRG/BRGLOSS 

COMMON/RECUP/ DPOPREC , UAML , UAMH , DPML, DPMH , 

& PREXP,NFINL,TFINL,SPACEL,LEQL,ROFINL,KFINL,NFINH,TFINH,SPACEH, 

& LEQH , ROF I NH , KF I NH , TPLATE , ROPLAT , TBRAZE , ROBRAZ , 

& SIGMAL,ALPHAL,AFINL,APLATL,HDL,SIGMAH,ALPHAH,AFINH,APLATH,HDH, 
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& PITCH, WGTREC 

COMMON/MASSES/MASSCMP , MASSTRB , MWHLC , MWH LT , MS FTC , MS FTT , MCASEC , 

& MCASET,MDIAC,MDIAT 

COMMON/ I HX/ DPSHELL1 ,ANTUBES1,DPTUBE1,D0TL21,ALSHEL1 ,AMSHELL1 , 

& AMPLATES1 , AMTUBES1 , AMINSUL1 , AMHEADS1, AMSTRT1 , ANETMASS1 ,XMNHEX1 , 

& HSHELL1 , AFRIC1 ,UNEW1 , RETUBE1 ,THC1 ,AMTSHT1 ,PRATIO, IHXFLG, UEST1, 
& TH INI , THOUT1 , TTUBE1 , ANPLATES1 ,AKTUBE1 , TINS1, DENINS1 , 

& DENSSH1 , DTUBE1 

COMMON/CONST/ PI , RU , GO , JCON, RZERO 

WRITE(61 ,9) 

9 FORMAT (/, ' ',/) 

WRITE(61 , 10) (CYCDES(I), 1=1,8) 

WRITE (61 , 10) (TITLER(I) , 1=1,8) 

10 FORMAT ( IX , 8A10) 

WRITE (61,20) 


C *** convert R to K 

var(l)=var(l)/l .8 


20 FORMAT (/' *** PARAMETRIC DATA *********************************** 

£******************* ' J 

WRITE (61,30) (TVAR(I) ,VAR(I) ,1=1,15) 

30 FORMAT (3(4X,A8,E12.5)) 

WRITE (61,40) 

40 FORMAT (/' *** MASS and EFFICIENCY DATA ************************** 


£******************* 9 


) 


C *** convert masses from lbm to kg 

XWGTTAC=WGTTAC*0 . 45359 
XWGTREC=WGTREC*0 . 45359 
XWDCTT OT =WDCTT 0T*0 . 45359 
XMASSCMP=MASSCMP*0 . 45359 
XMASSTRB=MASSTRB*0 . 45359 
XMASSGEN=MASSGEN*0 . 45359 
XWGTT0T=WGTT0T*0 . 45359 
XWDCTTOT=0 
DO 49 1=1,6 

XWDCTTOT=XWDCTTOT+ ( WGTDUCT ( I ) * . 45359 ) 
49 CONTINUE 


C****** ADD COMPUTATION FOR POWER CONVERSION SYSTEM MASS 7-30-93 ***** 


PCST OT =XWGTT OT +XWDCTT OT 


Q********************************************************* 


WRITE (61,50) XWGTTAC , XWGTREC , XWDCTTOT , 

& XMASSCMP, XMASSTRB , XMASSGEN , PCSTOT , EFFCYCLE , 
& EFFC,EFFT,EFFA,BETA,GROSSEP 
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REC MASS, KG ',F10.0,/, 


TRB MASS, KG ',F10.0,/, 
PCS MASS, KG ' ,F10.0,/, 
ETA COMPR ' , F10 . 5,/ , 
ETA ALT ' ,F10.5,/, 
GROSS EP kWe ',F10.1) 

ts for printout 

XRADHC=RADHC*2 . 54 
XRAD1C=RAD1C*2 . 54 
XRADNC=RADNC*2 . 54 
XMASSCMP=MASSCMP* . 45359 
XC0MPDIA=C0MPDIA*2 . 54 
XUTIPC=UTIPC* . 3048 
XRADHT=RADHT*2 . 54 
XRAD1T=RAD1T*2 . 54 
XRADNT=RADNT*2 . 54 
XMASSTRB=MASSTRB* . 45359 
XTURBDIA=TURBDIA*2 . 54 
XUTIPT=UTIPT*.3048 
XDGENRTR=DGENRTR*2 . 54 
XDGENSTR=DGENSTR*2 . 54 
XLGENT0T=LGENT0T*2 . 54 
XMASSGEN=MASSGEN*. 45359 
XTI PSPDG=T I PSPDG* . 3048 
XTINCLNT=TINCLNT/1 .8 
XTOUTCLNT=TOUTCLNT/l .8 
XWCLNT=WCLNT*. 45359 


50 FORMAT (' TAC MASS, KG ',F10.0,' 

DCTNG MASS, KG ',F10.0,/, 
CMP MASS, KG ' ,F10.0, ' 

GEN MASS, KG ',F10.0,' 

CYC EFF ' , FI 0 . 5 , ' 

ETA TURB ' ,F10.5, ' 

BETA ' ,F10.5, ' 


C *** convert parameters from engineering uni 


WRITE (61,60) 

60 FORMAT (/' *** DIMENSIONAL DATA ********************************** 
£****************** f ) 


IF (COMPTYPE.EQ. 'AXIAL ') THEN 

WRITE (61,65) I STGC , XRADHC , XRAD1 C , XRADNC , ANSQC , ANSQCL , COMPSS , 


&XMASSCMP 

ELSE 

WRITE (61,80) XCOMPDIA,XUTI PC, COMPSS, XMASSCMP 
END IF 

IF (WARNINGC.NE. ' ') WRITE (61,67) WARNINGC 
IF (ERRORC.NE. ' ') WRITE (61,68) ERRORC 
IF (TURBTYPE.EQ. 'AXIAL ') THEN 

WRITE (61,66) I STGT , XRADHT , XRAD1 T , XRADNT , ANSQT , ANSQTL , TURBSS , 


&XMASSTRB 

ELSE 

WRITE (61,81) XTURBDIA,XUTIPT, TURBSS, XMASSTRB 


END IF 

IF (WARNINGT.NE. ' ') WRITE (61,67) WARNINGT 
IF (ERRORT.NE. ' ') WRITE (61,68) ERRORT 
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65 FORMAT ( ' ***** AXIAL COMPRESSOR GEOMETRY',/ 

o / nrv rTiiorr / TC CV / UIID DAH /^m ' Cl i 


& ' 

NO STAGES 

' , I5,5X, ' 

HUB RAD, cm 'F10.3, 

& ' 

TIP R INL,cm 

' , F 1 0 . 3/ , 


& ' 

TIP R DCH, cm 

' , F10.3, ' 

AN A 2C 'E10.3, 

& ' 

AN A 2LIMIT 

' , E10.3/ , 


& ' 

SPEC SPD 

' , F10. 1 , ' 

MASS, kg 'F10.1) 


66 FORMAT ( ' ***** AXIAL TURBINE GEOMETRY',/, 

& ' NO STAGES ' , 15, 5X, ' HUB RAD, cm 'F10.3, 

& ' TIP R INL,cm ',F10.3/, 

& ' TIP R DCH , cm ',F10.3,' AN A 2T 'E10.3, 

& ' AN A 2LIMIT ' , E10.3/ , 

& ' SPEC SPD ' , F10. 1 , ' MASS, kg 'F10.1) 


67 FORMAT (IX, 'WARNING = ',A64) 

68 FORMAT (IX,' ERROR = ',A64) 

c ******* Add frequency to output, 7-30-93 ****** 

FREQNCY=VAR(6)/60.0 

c *********************************************** 

WRITE (61,83) XDGENRTR,XDGENSTR,XLGENTOT,GENASP,XMASSGEN, 
&XTIPSPDG , KVA , PWRFCTR, VOLTAGE , FREQNCY , XTINCLNT, XTOUTCLNT , XWCLNT 
83 FORMAT (' ***** GENERATOR GEOMETRY AND PARAMETERS'/ 

& ' Rotor OD, cm ',F10.3,' Stator 0D,cm ',F10.3, 

& ' Length, cm ',F10.3,/, 

& ' Rotor L/D ' , F10 . 2 , ' Mass, kg ',F10.2, 

& ' Tip Spd m/s ',F10.0,/, 

& ' kVA ' , F10. 1 , ' Pwr Factr ',F10.3, 

& ' Volts, 1-1 ' , F10.0,/ , 

& ' Frequency, Hz ' , f 10 . 3 , / , 

& ' Clnt Tin, K ',F10.0,' Clnt Tout, K ',fl0.0, 

& ' Clnt Flow, kg/s' ,F10. 2) 

WRITE (61,69) GENTYPE, INTTYPE,CLNTTYPE 
IF (WARNINGG.NE. ' ') WRITE (61,67) WARNINGG 
IF (ERRORG.NE. ' ') WRITE (61,68) ERRORG 

69 FORMAT (' TYPE= ',A20,' INTERFACE= ',A20,/, 

& ' C00LANT= ' ,A10) 

80 FORMAT (' ***** RADIAL COMPRESSOR GEOMETRY'/ 

& ' COMP DIA, cm ',F10.3,' TIP SPD., m/s ',F10.0, 

& ' SPEC SP ' , F 10 . 3/ 

& ' COMP MASS, kg ' , F10. 1) 

81 FORMAT (' ***** RADIAL TURBINE GEOMETRY'/ 

& ' TURB DIA, cm ',F10.3,' TIP SPD., m/s ',F10.0, 

& ' SPEC SP ' , F10.3/ 


60 



& ' TURB MASS, kg ',F10.1) 


WRITE (61,90) 

90 FORMAT (/' *** THERMODYNAMIC DATA ******************************** 

£********************** f J 


C ** convert to K, kPa, kg/s 

DO 95 1=1,17 
XTEMP(I)=TEMP(I)/1 .8 
XPRESS ( I ) =PRESS ( I ) *6 . 8948 
XFLOW ( I ) =FLOW ( I ) *0 .45359 
95 CONTINUE 

WRITE (61,100) (XTEMP(I),I=1,17) 

WRITE (61,110) (XPRESS(I) , 1=1,17) 

WRITE (61,120) (PR(I) , 1=1 , 17) 

WRITE (61,130) (XFLOW(I) , 1=1 , 17) 

100 FORMAT (' TEMPERATURES, K ',6F10.2) 

110 FORMAT (' PRESSURES, KPA ',6F10.2) 

120 FORMAT (' PRESS RATIOS 7 ,6F10.6) 

130 FORMAT (' FLOW RATES, KG/S ' ,6F10.2) 

WRITE (61,140) 

140 FORMAT (' *** PARASITIC LOSSES *********************************** 
£********************* ' ) 

WRITE (61,150) QLOSS9,QLOSS8,QLOSS10,QLOSS13 
150 FORMAT (' THERMAL LOSSES [kW] - HSA \F10.2, 

& ' THTML 8 ' , F10 . 2 ,/ , 

& ' THRML 10' ,F10.2, 

& ' THRML 13 ' , F10. 2) 

WRITE (61,152) BRGLOSS, WINDAGE 

152 FORMAT (' SHAFT LOSSES [kW]- TOT BRGS' , F10.2, ' WINDAGE 7 , F10.2) 


WRITE (61,155) 

155 FORMAT (//, 7 ******* Ducting Configuration ****************** 7 , / ) 

C ** convert to cm, m/s, kg 

DO 157 1=1,6 
XDI AM( I ) =DI AM ( I ) *2 . 54 
XLGTH ( I ) =LGTH ( I ) *2 . 54 
XVGAS ( I ) =VGAS ( I ) *0 . 3048 
XWGTDUCT ( I ) =WGTDUCT ( I ) *0 . 45359 
157 CONTINUE 

WRITE (61,164) ( I , XDIAM( I ) ,XLGTH(I) , 1=1,6) 

WRITE (61,163) 

163 FORMAT (' ',/) 
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WRITE (61,165) ( I , XVGAS ( I ) , XWGTDUCT ( I ) , 1=1,6) 


164 FORMAT (T1 , 'Duct' , 12, ' diameter, cm =',F10.5,' Length, cm=', 
&F10.5) 

165 FORMAT (Tl, 'Duct' , 12 , ' velocity, m/s=' ,F10.5, ' Weight, kg=', 
&F10.5) 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


(ERR1.NE.' 
(ERR2.NE. ' 
(ERR3.NE. ' 
(ERR4.NE. ' 
(ERR5.NE. ' 
(ERR6.NE. ' 
(ERR7.NE. ' 
(ERR8.NE. ' 
(ERR9.NE. ' 
(ERR10.NE. 
(ERR11.NE. 
(ERR12.NE. 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
') WRITE 
') WRITE 


) 

') 


(61, 

(61, 

(61, 

(61, 

(61, 

(61, 

(61, 

(61, 

(61, 

(61 

(61 

(61 


166) ERR1 
166) ERR2 
166) ERR3 
166) ERR4 
166) ERR5 
166) ERR6 
166) ERR7 
166) ERR8 
166) ERR9 
,166) ERRIO 
,166) ERR11 
,166) ERR12 


166 FORMAT (IX, A60) 

C *** Convert IHX parameters from engineering units for printout 
XDPSHELL1 = DPSHELL1*6.8946 
XDPTUBE1 = DPTUBE1*6.8948 
XDOTL21 = DOTL2 1*2 . 54 
XALSHEL1 = ALSHEL1*2.54 
XAMSHELL1= AMSHELL1*. 45359 
XAMPLATES1 = AMPLATES1*. 45359 
XAMTUBES1 = AMTUBES1*. 45359 
XAMINSUL1 = AMINSUL1*. 45359 
XAMHEADS1 = AMHEADS1*. 45359 
XAMSTRT1 =AMSTRT1*. 45359 
XANETMASS1 = ANETMASS1*. 45359 
XXMNHEX1 = XMNHEX1*. 45359 

XHSHELL1 = HSHELL1*1054. 4*1. 8/(3600. *.3048*. 3048) 

XUNEW1 = UNEW1*1054. 4*1. 8/(3600. *.3048*. 3048) 

XTHC1 = THC1*1054. 4*1. 8/(3600. *.3048*. 3048) 

XAMTSHT1 = AMTSHT1*. 45359 


C ********** ADD COMPUTATION FOR WET IHX MASS, 7-30-93 ******** 


XIHXWET=XANETMASS1+XXMNHEX1 

£ **************************************************** 

WRITE (61,200) XDPSHELL1 ,ANTUBES1 ,XDPTUBE1,XD0TL21 ,XALSHEL1 , 
&XAMSHELL1 , XAMPLATES1 , XAMTUBES1 , XAMINSUL1 ,XAMHEADS1 , XAMTSHT1 , 
&XAMSTRT1 .XANETMASS1 .XXMNHEX1 ,XHSHELL1 ,AFRIC1,XUNEW1,RETUBE1 , 
&XTHC1 , PRAT 10 
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C ** Output from the heat exchanger sizing 


200 FORMAT (/, 4X,' 

IHX Design Parameters',/, 


& ' 

XDPSHELL1 

- 

shell side pressure drop, kPa 

' , F10 - 3 ,/ , 

& ' 

ANTUBES1 

- 

number of heat exchanger tubes 

' ,F10.0,/ , 

& ' 

XDPTUBE1 

- 

tube side pressure drop, kPa 

' ,F10.3,/ , 

& ' 

XD0TL21 

- 

diameter of the shell, cm 

' ,F10.1,/, 

& ' 

XALSHEL1 

- 

length of the shell, cm 

' ,F10.1,/ , 

& ' 

XAMSHELL1 

- 

mass of the shell , kg 

',F10.1,/ , 

& ' 

XAMPLATES1 

- 

mass of the plates, kg 

' ,F10.1,/ , 

& ' 

XAMTUBES1 

- 

mass of the tubes, kg 

' ,F10.1,/ , 

& ' 

XAMINSUL1 

- 

mass of the insulation, kg 

' , F10. 1 ,/ , 

& ' 

XAMHEADS1 

- 

mass of the heads, kg 

' ,F10.1,/ , 

& ' 

XAMTSHT1 

- 

mass of the tubesheets, kg 

' ,F10.1,/ , 

& ' 

XAMSTRT1 

- 

structure and brackets, kg 

' ,F10.1,/ , 

& ' 

XANETMASS1 

- 

net shell and tube unit, kg 

' ,F10. 1 ,/ , 

& ' 

XXMNHEX1 

- 

mass of tubeside fluid, kg 

' , F10 . 1 ,/ , 

& ' 

XHSHELL1 

- 

shell side h, W/m2-K 

' ,F10.1,/ , 

& ' 

AFRIC1 

- 

friction factor 

' ,F10.3,/ , 

& 1 

XUNEW1 

- 

overall U, W/m2-K 

' ,F10.5,/ , 

& ' 

RETUBE1 

- 

tubeside Reynolds number 

' ,F10.3,/ , 

& 1 

XTHC1 

- 

tubeside h, W/m2-K 

' ,F10.1,/ , 

& ' 

PRAT 10 

- 

tube pitch ratio 

' ,F10. 1,/) 


C *** ADD A MASS SUMMARY TABLE, 7-30-93 ********************* 
WRITE(61 ,210) XWGTTAC, XWGTREC, XWDCTTOT, PCSTOT, XIHXWET 


210 FORMAT (//, 

& ' SUMMARY MASS TABLE',//, 

& ' TAC Mass, kg fl0.3,/, 

& ' Recuperator Mass, kg fl0.3,/, 

& ' Ducting mass, kg fl0.3,/, 

& ' »/ / » 

& ' Power Conversion System, kg ', fl0.3,//, 


& ' Intermediate heat exchanger (wet), kg ', fl0.3,/) 

c ************************************************************** 
END 

SUBROUTINE STATE PT 

C **** STATEPT is checked-out and final on October 6, 1992 
$ DEBUG 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JCON 

CHARACTERS GAS(2) ,CYCDES(8) ,TITLER(8) ,TVAR(18) , 

& COMPTYPE,TURBTYPE,CLNTTYPE 
CHARACTER*20 GENTYPE, INTTYPE 
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CHARACTER*64 ERRORT, ERRORC, ERRORR, ERRORG,ERRORF,WARNINGT, WARNINGC, 
& WARN I NGR , WARN I NGG 

COMMON/D I AGNOS/ ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , 

& WARNINGC, WARN I NGR, WARN I NGG 
COMMON/CONFIG/COMPTYPE,TURBTYPE,GENTYPE, INTTYPE,CLNTTYPE 
COMMON/ALTERNTR/DGENRTR , DGENSTR , LGENTOT , MASSGEN , TI PSPDG , COE , 

& ETAGEN , COOLING , WCLNT , VOLTAGE , KVA, GENASP,TINCLNT , TOUTCLNT , 

& CPCLNT, LIFETIME 

COMMON/AERODYN/ ETACOMP , COMPDIA, UTI PC , RADHC , RAD1C , 

& RADNC , ANSQC , ANSQCL , COMPSS , I STGC , ETATURB , TURBDI A, UT I PT , 

& RADHT , RAD1T , RADNT , ANSQT , ANSQTL, TURBSS , ISTGT 
COMMON/OPT I M/ VAR ( 1 8 ) , TVAR , I PR I NT 
COMMON/ FLUID/ GAS , GAMMA , MOLWT , C P , PRNDTL 
COMMON/TITLE/ CYCDES,TITLER 
COMMON/HSACALCS/ QHSA,WGTHSA,DP9 
COMMON/HRACALCS/ QHRA,WGTHRA,DP16 

COMMON/LOSS/ QL0SS8,QL0SS9,QL0SS10,QL0SS13,FCTQ8,FCTQ10,FCTQ13 
COMMON/C YCLE/TEMP( 17) , PRESS(17) , F LOW (17), PR (17) ,BETA,COMFLO, 

& PRC, EFFC,EFFT,EFFR,EFFA,XBLC,XBLT, SPEED, POWER, PWRFCTR, 

& DPOP6,DPOP7,DPOP8,DPOP9,DPOP10,DPOP13,DPOP14,DPOP15, 

& DPOP16,DPOPl 7, NETSP,GROSSEP,EFFCYCLE, WINDAGE 
COMMON/GASBRG/BRGLOSS 
COMMON/CONST/ P I , RU , GO , JCON , RZ ERO 

ITER=0 

C **** Initialize all pressure ratios to 1 [pressure losses = 0] 

DO 5, 1-1,17 
5 PR( I ) =1 . 

C **** Compure PR(i)'s not = 1 [flows with assigned/calculated losses] 

PR(6) = 1 . -DP0P6 
PR ( 7 ) = 1.-DP0P7 
PR(8) = 1.-DP0P8 

C **** DPOP ( 9 ) [Heat Source delta P/P) is supplied by Rocketdyne 

C and/or NASA and is contained within the statepoint iteration 

C **** loop below. 


PR(10) = 1.-DP0P10 
PR( 13) = 1 . -DP0P13 
PR( 14) = 1 . -DP0P14 
PR(15) = 1 . -DP0P15 

c **** opop(9) [Heat Rejection delta P/P) is supplied by Rocketdyne 
C **** and is contained within the statepoint iteration loop below. 

PR( 16) = 1 . -DPOP16 
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PR( 1 7 ) = 1 . -DP0P17 


c **** Make an initial pass through GENSIZE to validate or reestablish the 
C rotating speed value. If generator tip speed exceeds 700 fps a new 

C *** speed will be defined. 

CALL GENSIZE 
EFFA=ETAGEN 

C **** Begin Power Iteration Loop Begins 

10 CONTINUE 

PR(9)=1 . -DP0P9 
PR( 16 ) = 1 . -DP0P16 

C **** Compute BETA [= turbine pressure ratio/compressor pressure ratio] 

BETA=PR(6)*PR(7)*PR(8)*PR(9)*PR(10)*PR(13)*PR(14)*PR(15)*PR(16)* 

& PR( 17) 

C **** Turbine Pressure Ratio 
PRT=PRC*BETA 

**** The cycle definition is accomplished by solving for working fluid 
flowrate and pressure level required to produce the specified 
power output. Key parameters include: 

N - rotor speed, rpm 

Ns,c - compressor inlet specific speed, rpm-ft A .75/sec A .5 
PRESS(l) - compressor inlet pressure, psia 
FLOW ( 1 ) - compressor inlet flowrate, lbm/sec 

N and Ns,c are specified; FL0W(1) and PRESS(l) are determined 
**** to provide the specified output power level. 

TEMP (2 ) = ( ( PRC** ( (GAMMA- 1) /GAMMA) - 1 )/EFFC+l ) *TEMP( 1 ) 

PRESS (4)=PRESS(1)*PRC 

IF (COMPTYPE.EQ. 'RADIAL ') THEN 
IF (C0MPSS.LE.45. ) THEN 
C0MPSS=45. 

VAR(5)=C0MPSS 
END IF 

IF (COMPSS.GT. 100. ) THEN 
COMPSS=100. 

VAR(5)=C0MPSS 
END IF 
END IF 


IF (COMPTYPE.EQ.' AXIAL 


') THEN 



IF (COMPSS.LT. (33-1. 4*PRC)) THEN 
C0MPSS=33 . - 1 . 4*PRC 
VAR(5)=C0MPSS 
END IF 

IF (COMPSS.GT. (92/(PRC-l)**.675) ) THEN 

C0MPSS=92/ ( PRC - 1 ) ** . 675 

VAR(5)=C0MPSS 

END IF 

END IF 

FLOW ( 1 ) = 144 . *MOLWT/RU*SQRT ( PRESS ( 1 ) *PRESS (4 )/ (TEMP( 1 ) *TEMP ( 2 ) ) ) * 
& (COMPSS/SPEED)**2*(JCON*CP*(TEMP(2)-TEMP(l) ) )**1 . 5 

C **** FI ows 

BLEEDC=XBLC*FL0W(1 ) 

BLEEDT=XBLT*FL0W(1) 

FL0W(1)=FL0W(1) -BLEEDC 
FLOW ( 2 ) =FLOW ( 1 ) 

FLOW(3)=FLOW(2)+BLEEDC 

FL0W(4)=FL0W(3) 

FL0W(5)=FL0W(3) - BLEEDC- BLEEDT 
F LOW ( 6 ) = F LOW ( 5 ) 

FLOW(7)=FLOW(6) 

FL0W(8)=FL0W(7) 

FL0W(9)=FL0W(8) 

FLOW (10) =FL0W(9) 

FLOW (11) =FLOW ( 10 ) 

FLOW (12) =FLOW (11) 

FLOW ( 13 ) =FLOW (12) +BLEEDT 
FL0W(14)=FL0W(13) 

FLOW (15) =FLOW (14) 

FLOW( 16)=FL0W( 15) 

FLOW(17)=FLOW(16) 

H1=TEMP(1)*CP 

IF (COMPTYPE.EQ. 'RADIAL ') THEN 
PR2A=(PRC-1 . )/2.+l . 

PR2=PRC/PR2A 

ELSE 

PR2A=PRC 
PR2=1 . 

END IF 

TEMP ( 4 ) =TEMP ( 2 ) 

H2=CP*TEMP(4) 

PRESS(5)=PRESS(4) 

PRESS ( 2 ) = ( PRESS ( 5 ) +PRESS ( 1 ) )/2 
PRESS (3 ) =PRESS (2) 

PRESS(6)=PRESS(5)*PR(6) 

PRESS (7)=PRESS(6)*PR(7) 
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PRESS(8)=PRESS(7)*PR(8) 

PRESS(9)=PRESS(8)*PR(9) 

PRESS(10)=PRESS(9)*PR( 10) 

PRESS ( 12 ) =PRESS( 1 )/PR( 13 )/PR( 14)/PR( 15)/PR( 16)/PR(17) 

PRESS ( 1 1 ) = ( PRESS (12 ) +PRESS (10) )/2 
PRESS (13) =PRESS (12)*PR(13) 

PRESS (14) =PRESS (13)*PR(14) 

PRESS (15) =PRESS (14)*PR(15) 

PRESS (16) =PRESS (15)*PR(16) 

PRESS (17 ) =PRESS (16)*PR(17) 

C **** Temperatures 

TEMP(3)=TEMP(2) 

TEMP(5)=TEMP(4) 

**** All cooling of windage, generator EM losses and bearing losses 
is accomplished with a secondary [auxilliary] cooling loop. 
Therefore there is no temperature rise associated with this 
**** heat removal . 

TEMP(6)=TEMP(5) 

C **** Establish some initial guesses at key bycle temperatures 

T 106= ( 1 . - ( 1 . - 1 . / PRT** ( ( GAMMA - 1 ) /GAMMA ) ) *EFFT ) *TEMP ( 9 ) 

T4G=TEMP(6)+(T10G-TEMP(6) )*EFFR 

T5G=T4G 

T6G=TEMP(9) 

T9G=T10G 

C **** Enthalpies 

H6A=CP*TEMP(9) 

20 H5=CP*T5G 

C **** Thermal losses are determined from input fraction of gross 
C **** thermal input power. 

C **** Gross thermal input power 

P0WER6A=FL0W(9)*(H6A-H5) 

C **** Loss in heat source inlet flowpath 


P0WER5=-FCTQ8* P0WER6A 
C **** Loss in turbine inlet flowpath 
P0WER6=- FCTQ10*P0WER6A 

C **** l oss i n the turbine discharge flowpath 
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P0WER10=- FCTQ13* P0WER6A 
C **** Thermal losses in kWt 


QLOSS8=POWER5 * 3600. /3413. 

QL0SS10=P0WER6 * 3600. /3413. 

QLOSS13=POWER10 * 3600. /3413. 

C **** Temperatures/Enthalpies 

TEMP(10)=TEMP(9)+POWER6/FLOW(10)/CP 
TEMP( 11) =TEMP (10) 

TEMP ( 1 2 ) = ( 1 - ( 1 - 1/PRT** ( ( GAMMA- 1 ) /GAMMA) ) *EFFT)*TEMP (11) 
H9=CP*TEMP(12) 

H10=(H9*FL0W(12)+BLEEDT*H2)/(FL0W(12)+BLEEDT) 

TEMP ( 13 ) =H10/CP+POWER10/FLOW ( 13 )/CP 

TEMP(7)=TEMP(6)+(TEMP(13) -TEMP(6))*EFFR 

TEMP ( 14) =TEMP ( 13 ) + (TEMP(6) -TEMP(7) )*FLOW(6)/FLOW(13) 

TEMP(8)=TEMP(7)+P0WER5/FL0W(8)/CP 

TEMP(15)=TEMP(14) 

C **** Check for convergence of computed and estimated temperatures. 

IF ((ABS(TEMP(12)-T9G)/TEMP(12)).LT.. 00001. AND. (ABS(TEMP(7) 

& -T4G)/TEMP(7) ) . LT. .00001) GO TO 50 

T4G=TEMP(7) 

T5G=TEMP(8) 

T9G=TEMP(12) 

GO TO 20 

50 TEMP(16)=TEMP(1) 

TEMP(17)=TEMP(1) 

C **** Enthalpies 

H2A=TEMP(2)*CP 

H2B=TEMP(3)*CP 

H2C=TEMP(5)*CP 

H3=TEMP(6)*CP 

H4=TEMP(7)*CP 

H6=TEMP(10)*CP 

H7=TEMP(11)*CP 

H11=TEMP(14)*CP 

H11A=TEMP(15)*CP 

H12=TEMP(16)*CP 

H13=TEMP(17)*CP 

C **** Power Calculations 

P0WER2A= - FLOW ( 2 ) * ( H2A - H 1 ) 

P0WER4=-FL0W(7)*(H4-H3) 
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POWER9=FLOW(12)*(H7-H9) 

P0WER1 1 =- FLOW (14)*(H11-H10) 

POWER1 2= - FLOW ( 16)*(H11-H12) 

C **** Power and conversion efficiency calculation 

GROSSSP=(POWER9+POWER2A)*3600./3413. 

C **** Compute net shafe power 

60 NETSP=GROSSSP- WINDAGE- BRGLOSS 

CALL GENSIZE 
EFFA=ETAGEN 

ALTLOSS=(l . -EFFA)*NETSP 
GROSSEP=NETSP-ALTLOSS 

C **** Bearing loss and windage loss returned in kWs 

CALL BEARING 
CALL WINDLOS 

COOLING=WINDAGE+BRGLOSS+ALTLOSS 
EFFCYCLE= GROSSEP/POWER6A*3413/3600 

C **** Compute the cooling load resulting from generator EM and windage 
C **** losses. Compute the required coolant flowrate. 

WCLNT=C0OLING*3413./3600./ (CPCLNT*(TOUTCLNT-TINCLNT) ) 

70 CONTINUE 

C **** Call compressor size/efficiency routine. 

IF (COMPTYPE.EQ. 'RADIAL ') CALL RADCOMP 

IF (COMPTYPE.EQ. 'AXIAL ') CALL AXCOMP 

EFFC=MAX(ETACOMP, .60) 

EFFC=MIN(ETACOMP, .95) 

C **** Call turbine size/efficiency routine. 

IF (TURBTYPE.EQ. 'RADIAL ') CALL RADTURB 

IF (TURBTYPE.EQ. 'AXIAL ') CALL AXTURB 

EFFT=MAX(ETATURB, .60) 

EFFT=MIN(ETATURB, .95) 


C **** If DP0P9 [HSA pressure loss fraction] is a dependent variable, then 
C **** Subroutine HSA must be called at this point and DP0P9 updated. 

C DP90LD=DP0P9 
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CALL HSA 
DP0P9=DP9 
VAR (10) =DP9 

**** If DP0P16 [HRA pressure loss fraction] is a dependent variable, then 
**** Subroutine HRA must be called at this point and DP0P16 updated. 
DP160LD=DP0P16 
CALL HRA 
DPOP16=DP16 
VAR(14)=DP16 


C **** Check for convergence of specified power level and aero/themo 
C **** calculated power. 

ITER=ITER+1 

IF (ABS( (P0WER-GR0SSEP)/P0WER) . LT. .0001 .AND. ITER. GT. 2) RETURN 
C **** Reset system pressure level to attain specified power. 
c ***** E r ror trap inserted following telecon with LeRC on 7-9-93 *** 
IF ( PRESS ( 1 )*P0WER/GR0SSEP . LE . 0) THEN 

ERR0RC=' Negative compressor inlet pressure predicted in STATEPT' 
WRITE (*,100) ERRORC 
100 FORMAT (1X,A64) 

RETURN 
END IF 

c ******************************************************************** 

PRESS(1 )=PRESS(1)*P0WER/GR0SSEP 
GO TO 10 

END 

SUBROUTINE RECINP 

C **** RECINP is checked-out and final on October 6, 1992 
IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

CHARACTERS GAS(2) ,CYCDES(8) ,TITLER(8) ,TVAR(18) 

COMMON/TITLE/ CYCDES,TITLER 
COMMON/F LU I D/ GAS , GAMMA , MOLWT , C P , PRNDTL 
COMMON/OPT I M/ VAR ( 1 8 ) , TVAR , I PR I NT 
COMMON/RECUP/ DPOPREC , UAML , UAMH , DPML , DPMH , 

& PREXP,NFINL,TFINL,SPACEL,LEQL,ROFINL,KFINL,NFINH,TFINH,SPACEH, 

& LEQH , ROF I NH , KF I NH , TPLATE , ROPLAT , TBRAZE, ROBRAZ , 

& S I GMAL , ALPHAL , AF I NL , APLATL , HDL , SIGMAH , ALPHAH , AF INH , APLATH , HDH , 

& PITCH, WGTREC 

COMMON/CONST/ PI , RU , GO , JCON , RZERO 
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READ (60,90) (TITLER(I) , 1=1,8) 

READ (60,40) PREXP , UAML , DPML , UAMH , DPMH 
READ (60,70) XNF INL , XTF INL , XSPACEL , XLEQL , XROFINL , XKFINL , 
& XNFINH,XTFINH,XSPACEH,XLEQH,XROFINH,XKFINH, 

& XTPLATE,XROPLAT, 

& XTBRAZE,XROBRAZ 

C *** Convert to engineering units for calculations 

NFINL=XNFINL*2.54 
TFINL=XTF INL/2 . 54 
SPACEL=XSPACEL/2 . 54 
LEQL=XLEQL/2.54 

ROFINL=XROFINL*(2.54**3. )* ( 1 ./453 .6) 

KFINL=XKFINL*3600. *0.3048/(1054. 4*1. 8) 

NFINH=XNFINH*2 . 54 
TFINH=XTFINH/2 . 54 
SPACEH=XSPACEH/2 . 54 
LEQH=XLEQH/2 . 54 

ROF INH=XROF I NH* ( 2 . 54**3 . ) * ( 1 . /453 . 6 ) 

KFINH=XKFINH*3600 . *0 . 3048/ (1054.4*1.8) 

TPLATE=XTPLATE/2 . 54 
ROPLAT=XROPLAT* ( 2 . 54**3 . ) * ( 1 . /453 . 6 ) 

TBRAZE=XTBRAZE/2 . 54 
ROBRAZ=XROBRAZ* ( 2 . 54**3 . ) * ( 1 . /453 . 6 ) 

C ** Initial geometry calcs *** * 

PITCH=SPACEL+SPACEH+2 . *T PLATE 
CALL RCTFIN ( SPACEL , TF INL , NF INL , PITCH, LEQL, 

& SIGMAL,ALPHAL,APLATL,AFINL,HDL) 

CALL RCTFIN (SPACEH,TFINH,NFINH, PITCH, LEQH, 

& S I GMAH , ALPHAH , APLATH , AF INH , HDH ) 

**** Free Flow: Frontal Area Ratios 

Define Surface Area per Unit Volume (sq in/cu in) 

Fin Area per Unit Volume (sq in/cu in) 

Plate Area per Unit Volume (sq in/cu in) 

**** Define Hydraulic Diameters 

C ** convert to SI units for output ** 

XSIGMAL=SIGMAL 
XALPHAL=ALPHAL/2 . 54 
XAFINL=AF INL/2. 54 
XAPLATL=APLATL/2 . 54 
XHDL=HDL*2.54 

XSIGMAH=SIGMAH 
XALPHAH=ALPHAH/2 . 54 
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XAFINH=AFINH/2 . 54 
XAPLATH=APLATH/2 . 54 
XHDH=HDH*2.54 


IF ( I PRINT . GE . 1 ) THEN 
IF (VAR(4) .GT.O.O) THEN 
WRITE (61,100) 

WRITE (61,210) (TITLER(I) , 1=1,8) 

WRITE (61,220) GAS(l) ,GAS(2) ,UAML,DPML,RZERO,GAS(l) ,GAS(2) , 

& UAMH,DPMH,RZERO 

WRITE (61,230) XNFINL,XTFINH,XSPACEL,XLEQL,XROFINL,XKFINL, 

& XNFINH,XTFINH,XSPACEH,XLEQH,XROFINH,XKFINH, 

& XTPLATE,XROPLAT, 

& XTBRAZE,XROBRAZ 

WRITE (61,240) XS I GMAL , XAL PHAL , XAF I NL , XAPLATL , XHDL , XS I GMAH , 

& XALPHAH , XAF INH , XAPLATH , XHDH 

END IF 
END IF 

40 FORMAT (6E12.5) 

70 FORMAT (2(6E12.5/) , 2 ( 1 2X , El 2 . 5 , 24X , E12 - 5/) ) 

90 FORMAT (8A10) 

100 FORMAT (33X,' INPUT GEOMETRY FOR COUNTERFLOW HEAT EXCHANGER DESIGN 
&PROGRAM' ,//) 

210 FORMAT (50X,8A10/) 

220 FORMAT (37X,' GAS GAS',5X,' UA MARGIN DP MARGIN 

&',2X,'C0ND. FACTOR', /58X,3('( )',5X)/,//' L.P. SIDE 

& ' ,2X,2A10,3(F9.4,3X) ,24X,/ ' H.P. SIDE 

& ' ,2X,2A10,3(F9.4,3X)//) 

230 FORMAT (36X, ' NUMBER THICKNESS SPACING EQ. LENGTH 

&DENSITY CONDUCTIVITY '/36X, ' (PER CM) (CM) (CM) 

& (CM) (GM/CC) (W/M-K)'//, 

& ' L.P. SIDE FINS- ' ,F9.2,5F12.3/ , 

& ' H.P. SIDE FINS --- ' ,F9.2,5F12.3/ , 

& ' SPLITTER PLATES ' , 9X , F12 . 3 , 24X , FI 2 . 3/ , 

& ' BRAZE MATERIAL ' ,9X,F12.3,24X,F12.3//) 

240 FORMAT (// 37X, 'FLOW AREA'4X, 'SURFACE'7X, 'FIN'8X, 'PLATE'5X, 'HY 
&DRAULICV39X, 'RATI0'4X, 'AREA/ VOLUME' IX, 'AREA/VOLUME' IX, 'ARE 
&A/V0LUME'3X, 'DIAMETER'/38X, '( )'3(5X, ' (1/CM) '),5X, '(CM 

& }// L.P. SIDE FINS 'F9.5,3(3X,F9.3),3X,F9.5/, 

& ' H.P. SIDE FINS 'F9.5,3(3X,F9.3) ,3X,F9.5/) 

RETURN 

END 


SUBROUTINE RCTFIN (SPACE, TFIN,NFIN, PITCH, LEQ, SIGMA, ALPHA, APLATE, 
& AFIN,HD) 

C **** RCTFIN is checked-out and final on October 6, 1992 


72 


IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

C **** This subroutine calculates the heat transfer and aerodynamic 
C **** geometric constants for rectangular fin assemblies. 

C **** Calculate the flow area:frontal area ratio 

SIGMA=(SPACE-TFIN)*(1-TFIN*NFIN)/PITCH 

C **** Calculate the plate area: volume ratio 

APLATE=2.*(1 . -NFIN*TFIN)/PITCH 

C **** Calculate the fin area:volume ratio 

AFIN=2.*NFIN*(SPACE-TFIN)/PITCH 

C **** Calculate the equivalent fin length 

IF (LEQ.EQ.O. ) LEQ=SPACE/2. 

C **** Calculate heat transfer area:volume ratio 

ALPHA=APLATE+AFIN 

C **** Calculate passage hydraulic diameter 

HD=4 . *S IGMA/ALPHA 

RETURN 

END 

SUBROUTINE GASPROP 

C **** GASPROP is checked-out and final on October 6, 1992 

C **** This subroutine provides input data pertaining to aerodynamic, 

C thermodynamic and transport properties of Noble gases or binary 

C **** Noble gas mixtures. 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JCON 

CHARACTER* 10 GAS (2) 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , WARN INGC, 
& WARNINGS WARN I NGG 

COMMON/DIAGNOS/ERRORT, ERRORC, ERRORR, ERRORG, ERRORF, WARNINGT, 

& WARN INGC, WARN I NGR, WARN I NGG 
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DIMENSION CSC1 (79) ,CSC2(79) 

COMMON/ FLU ID/ GAS , GAMMA, MOLWT, CP, PRNDTL 
COMMON/TRPRO/X (79) , Y (79) , C (79,3) , XGAS1 , XGAS2 , RMOLWT , 
+ S I GGAS 1 , S I GGAS2 , WMOL 1 , WMOL2 , L JPGAS 1 , LJPGAS2 
COMMON/CONST/ P I , RU , GO , JCON , RZERO 


DATA CSC1/. 3,. 35,. 4,. 45,. 5,. 55,. 6,. 65,. 7,. 75, .8,. 85,. 9, .95,1., 1.05 
+,1.1,1.15,1.2,1.25,1.3,1.35,1.4,1.45,1.5,1:55,1.6,1.65,1.7,1.75, 
+1.8,1.85,1.9,1.95,2. ,2. 1,2. 2, 2. 3, 2. 4, 2. 5, 2. 6, 2. 7, 2. 8, 2. 9, 3., 3.1, 
+3. 2, 3. 3, 3. 4, 3. 5, 3. 6, 3. 7, 3. 8, 3. 9, 4., 4. 1,4. 2, 4. 3, 4. 4, 4. 5, 4. 6, 4. 7, 4. 8 
+,4.9, 5., 6., 7., 8., 9., 10., 20., 30., 40., 50., 60., 70., 80., 90., 100./ 

DATA CSC2/2. 785, 2. 628, 2. 492, 2. 368, 2. 257, 2. 156, 2. 065, 1.982, 1.908, 
+1.841,1.78,1.725,1.675,1.629,1.587,1.549,1.514,1.482,1.452,1.424, 
+1.399,1.375,1.353,1.333,1.314,1.296,1.279,1.264,1.248,1.234,1.221, 
+1.209,1.197,1.186,1.175,1.156,1.138,1.122,1.107,1.093,1.081,1.069, 
+1.058, 1.048, 1.039, 1.030, 1.022, 1.014, 1.007,. 9999,. 9932,. 9870,. 9811, 
+.9755, .9700, .9649, .9600, .9553, .9507, .9464, .9422, .9382, .9343, .9305, 
+ .9269, .8963, .8727, .8538, .8379, .8242,-7432, .7005, .6718, .6504, .6335, 
+.6194,. 6076,. 5973,. 5882/ 


c **** si GGAS 1 is the collision diameter of gas#l in Angstroms. 

C **** SIGGAS2 is the collision diameter of gas#2 in Angstroms. 

C **** Lennard- Jones parameters expanded to include Neon, Argon, Xenon 

C for use in working fluid mixtures. Data based on: 

C R.C. Reid and T.K. Sherwood, "The Properties of Gases and Liquids", 

C **** McGraw Hill Book Company, New York, 1958. 

C **** GAMMA [Cp/Cv] is 5/3 for all Noble gases and gas mixtures. 


GAMMA=5./3. 


C **** Determine the specific heat [@ const P] of the working fluid. 

C P= ( GAMMA/ ( GAMMA- 1 . ) ) *RU/ JCON/MOLWT 

SIGXE=4.055 
SIGKR=3.600 
SIGAR=3.418 
SIGNE=2.789 
S IGHE=2 . 576 

RM0LWT=M0LWT 

WMOLXE=131 .3 
WM0LHE=4.0026 
WM0LNE=20. 183 
WM0LAR=39.944 
WM0LKR=83 .8 

LJPXE=l./229. 
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LJPKR=1 ./190. 

LJPAR=1./124. 

LJPNE=l./35.7 
LJPHE=1 ./ 10 . 22 

C **** Calculate the mole fractions required to provide specified MW. 
IDGAS=0 

IF (GAS(l).EQ. 'HELIUM ') THEN 

WM0L1=WM0LHE 

SIGGAS1=SIGHE 

LJPGAS1=LJPHE 

IDGAS=IDGAS+1 

END IF 

IF (GAS ( 2 ) . EQ. 'HELIUM ') THEN 

WMOL2=WMOLHE 

SIGGAS2=SIGHE 

LJPGAS2=LJPHE 

IDGAS=IDGAS+1 

END IF 

IF (GAS(l).EQ.'NEON ') THEN 

WMOLl=WMOLNE 

SIGGAS1=SIGNE 

LJPGAS1=LJPNE 

IDGAS=IDGAS+1 

END IF 

IF (GAS ( 2 ) . EQ . 'NEON ') THEN 

WM0L2=WM0LNE 

SIGGAS2=SIGNE 

LJPGAS2=LJPNE 

IDGAS=IDGAS+1 

END IF 

IF (GAS (l).EQ.' ARGON '} THEN 

WM0L1=WM0LAR 

SIGGAS1=SIGAR 

LJPGAS1=LJPAR 

IDGAS=IDGAS+1 

END IF 

IF (GAS ( 2 ) .EQ. 'ARGON ') THEN 

WM0L2=WM0LAR 

SIGGAS2=SIGAR 

LJPGAS2=LJPAR 

IDGAS=IDGAS+1 

END IF 

IF (GAS (l).EQ.' KRYPTON ') THEN 

WM0L1=WM0LKR 

SIGGAS1=SIGKR 

LJPGAS1=LJPKR 

IDGAS=IDGAS+1 

END IF 

IF ( GAS ( 2 ).EQ.' KRYPTON ') THEN 
WM0L2=WM0LKR 
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S IGGAS2=S IGKR 
LJPGAS2=LJPKR 
IDGAS=IDGAS+1 
END IF 

IF (GAS(l) . EQ. 'XENON ') THEN 

WMOLl=WMOLXE 

SIGGAS1=SIGXE 

LJPGAS1=LJPXE 

IDGAS=IDGAS+1 

END IF 

IF (GAS (2) . EQ. 'XENON ') THEN 

WMOL2=WMOLXE 

SIGGAS2=SIGXE 

LJPGAS2=LJPXE 

IDGAS=IDGAS+1 

END IF 

IF (IDGAS.NE.2) THEN 
ERRORF= 

& 'SUBROUTINE GASPROP DID NOT I.D. TWO GASES IN WORKING FLUID' 
WRITE (*,100) ERRORF 
END IF 

IF (GAS(l) .NE.GAS(2) ) THEN 
XGASl=(MOLWT-WMOL2)/(WMOLl-WMOL2) 

ELSE 

XGAS1=0. 5 
END IF 

XGAS2=1 . -XGAS1 

C **** Perform a cubic spline fit of the Lennard/Jones parameter. 

DO 200 1=1,79 
X(I)=CSC1(I) 

Y(I)=CSC2(I) 

200 CONTINUE 

CALL ICSCCU(X,Y,79,C,79, IER) 

RETURN 

100 FORMAT (1X,A64) 

END 


FUNCTION VISCOS (T) 

C **** VISCOS is checked-out and final on October 6, 1992 

C **** This function evaluates the viscosity of a fluid based on 
C **** temperature and gas constituants. 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL MU (2) 
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C **** LJPGAS1 is the Lennard/Jones parameter for gas#l. 

C **** SIGGAS1 is the collision diameter for gas#l in Angstroms. 

COMMON/TRPRO/X ( 79 ) , Y ( 79 ) , CC ( 79 , 3 ) , XGAS 1 , XGAS2 , MOLWT , SIGGAS 1 , 
+SIGGAS2,WMOLl ,WMOL2, LJPGAS1 , LJPGAS2 
DIMENSION XX(2),WM(2) 

OHMGAS1=0. 

OHMGAS2=0. 

C **** T is converted to Kelvin; cubic spline is evaluated for two gas 
C **** constituants. 

ARGGAS1=LJPGAS1*T/1 .8 
I F ( ARGGAS 1 .LE. 100. AND. ARGGAS l.GE.0.3) THEN 
CALL ICSEVU (X, Y , 79 , CC , 79 , ARGGAS 1 , OHMGAS1 , 1 , IER) 

ELSE 

I F ( ARGGAS 1 . GT . 1 00 ) OHMGAS 1 = . 5882 - ( ARGGAS 1 - 1 00 . ) * . 0009 1 
I F (ARGGAS 1 . LT . . 3 ) OHMGAS 1=2.785 + ( . 3 -ARGGAS 1 ) *3 . 14 
END IF 

ARGGAS2=LJPGAS2*T/1 .8 

IF ( ARGGAS2 . LE . 100 . AND . ARGGAS 1 . GE . 0 . 3 ) THEN 

CALL I CSEVU ( X , Y , 79 , CC , 79 , ARGGAS2 , OHMGAS2 , 1 , IER) 

ELSE 

I F ( ARGGAS2 . GT . 1 00 ) OHMGAS2= . 5882 - ( ARGGAS2 - 100 . ) * . 00091 
I F ( ARGGAS2 . LT . . 3 ) OHMGAS2=2 .785 + ( . 3 - ARGGAS2 ) *3.14 
END IF 

VISC1=SQRT(WM0L1*T/1.8)/(SIGGAS1**2*0HMGAS1)*. 000026693 

VISC2=SQRT(WMOL2*T/1.8)/(SIGGAS2**2*OHMGAS2)*. 000026693 

XX ( 1 )=XGAS1 

XX(2)=XGAS2 

MU(1)=VISC1 

MU(2)=VISC2 

WM(1)=WM0L1 

WM(2)=WMOL2 

VISC0S=0. 

DO 100 1=1,2 
RNUMER=XX ( I ) *MU ( I ) 

DENOM2=0. 

DO 200 J=1 ,2 

DENOM=XX(J)*(l.+(MU(I)/MU(J))**.5*(WM(J)/WM(I))**.25)**2 

+/8.**.5/((l.+WM(I)/WM(J))**.5) 

DENOM2=DENOM2+DENOM 
200 CONTINUE 

VISC0S=VISC0S+RNUMER/DEN0M2 
100 CONTINUE 

C **** Convert the viscosity from g/cm-sec to lbm/ft-sec. 
VISC0S=VISC0S*.0672 
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30 CONTINUE 
RETURN 
END 

FUNCTION AVVISC (TONE,TTWO) 

C **** AVVISC is checked-out and final on October 6, 1992 
C **** This function evaluates the average viscossity of a gas or gas 
C **** mixture over the temperature range from TONE to TTWO using Simpson's 

r ★★★★ Rill p 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

TAVG=(T0NE+TTW0)/2 . 

AVVISC = ( V I SCOS ( TONE ) +4 . *V I SCOS ( TAVG ) +V ISCOS (TTWO ) )/6 . 

RETURN 

END 


FUNCTION CONDUCT (T) 

C **** RECSIZE is checked-out and final on October 6, 1992 

C **** This function evaluates the thermal conductivity of a gas or 
C **** gas mixture based on the temperature (T) and gas constituants. 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

C **** LJPGAS1 is the Lennard/Jones parameter for gas#l 
C **** SIGGAS1 is the collision diameter for gas#l in Angstoms. 

COMMON/TRPRO/X ( 79) , Y ( 79) , CC ( 79 , 3 ) , XGAS 1 , XGAS2 , MOLWT , 

+S I GGAS 1 , S I GGAS2 , WMOL 1 , WMOL2 , LJPGAS 1 , LJPGAS2 

DIMENSION CON (2) ,XX(2) ,VISC(2) ,WM(2) 

OHMGAS 1=0. 

0HMGAS2=0. 

ARGGAS1=LJPGAS1*T/1 .8 

IF(ARGGAS1. GT.100.0R.ARGGAS1.LT. .3)G0 TO 21 

C **** T is converted from R to K; the cubic spline is evaluated/ 

C **** If the argument is outside the valid range of the fit, then 
C **** use linear extrapolation. 

CALL I CSEVU ( X , Y , 79 , CC , 79 , ARGGAS 1 , OHMGAS1 , 1 , I ER) 

2 1 I F ( ARGGAS 1 . GT . 1 00 ) OHMGAS 1 =. 5882 - (ARGGAS 1 - 100 . ) * . 0009 1 
I F (ARGGAS 1 . LT . . 3 ) OHMGAS 1=2.785 + ( . 3- ARGGAS 1 ) *3 . 14 
ARGGAS2=LJPGAS2*T/1 .8 

IF(ARGGAS2.GT. 100.0R.ARGGAS1.LT. .3)G0 TO 25 


78 


CALL I CSEVU ( X , Y , 79 , CC , 79 , ARGGAS2 , 0HMGAS2 , 1 , I ER) 

25 I F (ARGGAS2 . GT . 100) 0HMGAS2= . 5882 - (ARGGAS2 - 100 . )* . 00091 
I F ( ARGGAS2 . LT. .3) OHMGAS2=2 .785 + ( . 3 - ARGGAS2 ) *3 . 1 4 
COND 1 = ( T/ WMO L 1/ 1 . 8 ) ** . 5/ ( S I GGAS 1 **2*0HMGAS 1 ) * . 000 1 989 1 
C0ND2= (T/WM0L2/ 1 . 8 ) ** . 5/ ( S I GGAS2**2*0HMGAS2 ) * . 0001989 1 
VISC1=(WM0L1*T/1 .8)**. 5/ (S IGGAS1**2*0HMGAS1 )*. 000026693 
VISC2=(WM0L2*T/1 . 8) ** . 5/ (S IGGAS2**2*0HMGAS2)* . 000026693 
XX ( 1 ) =XGAS 1 
XX ( 2)=XGAS2 
VISC(1)=VISC1 
VISC(2)=VISC2 
CON(1)=COND1 
CON(2)=COND2 
WM(1)=WM0L1 
WM(2)=WM0L2 
CONDUCT=0. 

DO 100 1=1,2 
RNUMER=XX ( I ) *C0N ( I ) 

DENOM2=0. 

DO 200 J=1 , 2 

DEN0M=XX(J)*(1 .+(VISC(I)/VISC(J))**.5*(WM(J)/WM(I))**.25)**2 
+/8.**.5/((l .+WM(I)/WM(J) )**.5) 

DENOM2=DENOM2+DENOM 
200 CONTINUE 

CONDUCT=CONDUCT+RNUMER/DENOM2 
100 CONTINUE 

C **** Convert the conductivity from cal/cm-sec -K to BTU/ft-sec-R 

CONDUCT =CONDUCT* .0671985 

RETURN 

END 


FUNCTION AVCOND (TONE,TTWO) 

C **** AVCOND is checked-out and final on October 6, 1992 
C **** This function evaluates the average thermal conductivity of a gas 
C **** over the temperature range from TONE to TTWO using Simpson's Rule. 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

TAVG=(T0NE+TTW0)/2. 

AVCOND= (CONDUCT (T0NE)+4.*C0NDUCT (TAVG)+CONDUCT(TTWO) )/6. 

RETURN 

END 


79 



SUBROUTINE ICSCCU (X,Y,NX,C, IC, IER) 

DIMENSION X (NX) , Y (NX) ,C(IC,3) 

C **** Implementation of cubic spline with interface of IMSL routine 
C using SPLINE routine from "Computer methods for Mathematical 

C **** Computations" by Forsythe, Malcolm, and Moler. 


IER=0 

IF (IC.LT.NX) THEN 
I ER= 129 
RETURN 
END IF 

IF (NX.LT.2) THEN 

IER=130 

RETURN 

END IF 

DO 10 1=1, NX-1 
IF (X(I).GE.X(I+1)) THEN 
IER=131 
RETURN 
END IF 
10 CONTINUE 

CALL SPLINE (NX, X, Y,C( 1 , 1) ,C(1 , 2) ,C(1 ,3) ) 

RETURN 

END 


SUBROUTINE ICSEVU(X,Y,NX,C, IC,U,S,M, IER) 
DIMENSION X (NX) , Y (NX ) ,C(IC,3) ,U(M) ,S(M) 


C **** Implementation of cubic spline with interface of IMSL routine 
C using SEVAL routine from "Computer methods for Mathematical 

C **** Computations" by Forsythe, Malcolm, and Moler. 


IER=0 

DO 10 1=1, M 

IF (U(I).LT.X(l)) THEN IER=33 
IF (U ( I ) .GT.X(NX) ) THEN IER=34 
S( I)=SEVAL(NX,U( I) ,X, Y,C(1, 1) ,C(1 ,2) ,C(1,3)) 
10 CONTINUE 
RETURN 
END 

SUBROUTINE SPLINE (N,X,Y,B,C,D) 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

INTEGER N 

REAL X(N),Y(N),B(N),C(N),D(N) 

INTEGER I 
REAL T 


IF (N.LT.2) RETURN 
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IF (N.LT.3) GOTO 50 


C **** Set up tri -diagonal system 

C **** B = DIAGONAL, D = OFFDIAGONAL, C = RIGHT HAND SIDE. 

D(1)=X(2)-X(1) 

C(2)=(Y(2)-Y(1) )/D( 1 ) 

DO 10 1=2, N-l 
D(I)=X(I+1)-X(I) 

B(I)=2.*(D(I-1)+D(I) ) 

C(I+1)=(Y(I+1)-Y(I))/D(I) 

C(I)=C(I+1) -C(I) 

10 CONTINUE 

C **** End conditions. Third derivatives at X ( 1 ) and X(N) 
C **** are obtained from divided differences. 

B(l)=-D(l) 

B(N)=-D(N-1) 

C(1)=0.0 

C ( N ) =0 . 0 

IF (N.EQ.3) GO TO 15 
C(1)=C(3)/(X(4)-X(2))-C(2)/(X(3)-X(1)) 
C(N)=C(N-l)/(X(N)-X(N-2))-C(N-2)/ (X(N-l) -X(N-3)) 

C ( 1 ) =C ( 1 ) *D ( 1 ) **2/ ( X ( 4 ) - X ( 1 ) ) 

C(N)=-C(N)*D(N-1 )**2/ (X(N) -X(N-3) ) 

C **** Forward elimination 

15 DO 20 1=2, N 
T=D(I-1)/B(I-1) 

B( I )=B ( I ) -T*D ( I - 1 ) 

C ( I ) =C ( I ) -T*C ( I - 1 ) 

20 CONTINUE 

C **** Back substitution 

C(N)=C(N)/B(N) 

DO 30 I=N-1, 1,-1 
C(I)=(C(I)-D(I)*C(I+1))/B(I) 

30 CONTINUE 

C **** Compute the polynomial coefficients 

B(N)=(Y(N)-Y(N-1))/D(N-1)+D(N-1)*(C(N-1)+2.*C(N)) 

DO 40 1=1, N-l 

B(I)=(Y(I+1)-Y(I))/D(I)-D(I)*(C(I+1)+2.*C(I)) 
D(I)=(C(I+1) -C(I) )/D(I) 

C(I)=3.*C(I) 

40 CONTINUE 
C(N)=3.*C(N) 
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D(N)=D(N-1) 

RETURN 


50 B(l)= (Y(2)-Y(1))/(X(2)-X(1)) 
C(1)=0.0 
D(1)=0.0 
B(2)=B(1) 

C(2)=0.0 
D ( 2 ) =0 . 0 
RETURN 
END 


FUNCTION SEVAL(N, U, X, Y, B, C, D) 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

INTEGER N 

REAL U,X(N),Y(N),B(N),C(N),D(N) 
INTEGER I , J,K 
REAL DX 

DATA 1/1/ 

IF (I.GE.N) 1=1 
IF (U.LT.X(I)) GO TO 10 
IF (U.LE.X(I+1)) GO TO 30 


C **** Conduct binary search. 


10 1=1 
J=N+1 

20 K=(I+J)/2 

IF (U.LT.X(K)) J=K 
IF (U.GE.X(K) ) I=K 
IF (J.GT.I+1) GO TO 20 

C **** Evaluate the spline function. 


30 DX=U-X( I ) 

SEVAL= Y ( I ) +DX* ( B ( I ) +DX* ( C ( I ) +DX*D ( I ) ) ) 

RETURN 

END 

C INTERMEDIATE HEAT EXCHANGER SIZING CODE 

SUBROUTINE IHXSHEL( IHXflg,UEST, THIN, THOUT, PHOT, TCIN,TCOUT,WDOTS, 
&AMWS , T I NS , DEN INS , DENSSH , DTUBE , PR , TTUBE , ANPLATES , WDOTT , AKTUBE , Q 
&D0T,DPSHELL,ANTUBES,DPTUBE,D0TL2,ALSHEL,AMSHELL,AMPLATES, 

&AMTUBES , AMINSUL , AMHEADS , AMSTRT , ANETMASS , XMNHEX, HSHELL , AFRIC , UNEW , 
&RETUBE,THC,AMTSHT) 
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c 

c 

c 

c 

c 


WRITE (6,*) ' 

WRITE (6,*) 'DATA INPUT LIST FROM IHXSHEL' 

WRITE (6,*) ' IHXflg, UEST, THIN, THOUT, PHOT, TCIN,TCOUT,WDOTS,AMWS, 
&TINS, DEN I NS , DENSSH , DTUBE , PR , TTUBE , ANPLATES , WDOTT , AKTUBE , QDOT = ' , 
&IHXflg, UEST, THIN, THOUT, PHOT, TCIN,TCOUT,WDOTS,AMWS, TINS, DENINS, 
&DENSSH , DTUBE , PR , TTUBE , ANPLATES , WDOTT , AKTUBE , QDOT 


SHELL AND TUBE HEAT EXCHANGER DESIGN SUBROUTINE 
ROUTINE ASSUMES THAT LIQUID IS ON TUBE SIDE 
GAS IS ON SHELL SIDE. BELL'S CORRELATION IS USED FOR 
GAS SIDE HEAT TRANSFER - LYONS IS USED FOR TUBE SIDE 
LIQUID METAL HEAT TRANSFER, McELLIOT, MCGEE AND LEPPERT 
IS USED FOR OTHER FLUIDS (LIQUIDS AND GASES) 


***** OVERALL PARAMETERS ***** 


IHXflf = 1, THEN TUBE SIDE FLUID IS LITHIUM 

IHXflg = 2, THEN TUBE SIDE FLUID IS NaK-78 

ALMTD = Heat Exchanger Log Mean Temperature Difference 

QDOT = Heat Rate or Duty (BTU/Hr) 

UEST = INITIAL VALUE OF Uoverall (BTU/Hr-Ft-R) 

(50 for GAS -GAS) 

THIN = HOT SIDE Inlet Temperature (R) 

THOUT = HOT SIDE Outlet Temperature (R) 

TCIN = COLD SIDE Inlet Temperature (R) 

COUT = COLD SIDE Outlet Temperature (R) 

***** SHELL SIDE DATA ***** 


WDOTS = SHELL SIDE FLUID Flowrate (Lbs/Sec) 

DENSSH = SHELL MATERIAL Density ( Lbs/F t A 3) 

***** SHELL-SIDE FLUID PROPERTIES ***** 

CPSF = SHELL-SIDE FLUID Specific Heat (BTU/Lb-R) 

RHOSF = SHELL-SIDE FLUID Density ( Lbs/Ft A 3) 

AKTST = SHELL-SIDE FLUID Thermal Cond (BTU/Hr-Ft-R) 
VISCST = SHELL-SIDE FLUID Viscosity (Cp) 

***** TUBE SIDE DATA ***** 

DTUBE = Outside TUBE Diameter - (Inches) 

TTUBE = TUBE Wall Thickness (Inches) 

WDOTT = TUBE -SIDE Fluid Flowrate (Lbs/Sec) 

AKTUBE = TUBE Wall Thermal Conductivity (BTU/Hr-Ft-R) 

***** TUBE-SIDE FLUID PROPERTYIES 

CPT = TUBE-SIDE FLUID Specific Heat (BTU/Lb-R) 

RHOT = TUBE-SIDE FLUID Density (Lbs/Ft A 3) 

AKTT = TUBE-SIDE FLUID Thermal Cond (BTU/Hr-Ft-R) 
VISCT = TUBE-SIDE FLUID Viscosity (Lb/Ft-Sec) 
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SET FLUID THERMAL PROPERTIES 


TBARR = (THIN+TC IN)/2 . 0 
GO TO (5,8) , IHXflg 

5 CALL XL ITHP (TBARR , RHOT , CPT , V I SCT , AKTT ) 

CALL HEXEPR(AMWS, PHOT, TBARR, GAMMA, CPSF,RHOSF,VISCST,AKTST,PRMIX) 
GO TO 10 

8 CALL XNAKPR( TBARR, RHOT, CPT, VI SCT, AKTT) 

CALL HEXEPR(AMWS, PHOT, TBARR, GAMMA, CPSF,RHOSF,VISCST,AKTST,PRMIX) 
10 WDOTS = 3600.0*WDOTS 
VISCST = VISCST/6.72E-4 
A1 = (THIN-TCOUT) - (THOUT-TCIN) 

IF ( (THIN-TCOUT). EQ. (THOUT-TCIN)) THEN 
ALMTD = THIN-TCOUT 
GO TO 15 
ELSE 

A2 = ALOG( (THIN-TCOUT)/(THOUT-TCIN) ) 

ALMTD = A1/A2 
ENDIF 

15 PR = PR 

WRITE (6,*) 'Al, ALMTD, PR =', Al, ALMTD, PR 
GOTO 100 
35 UEST = UNEW 
100 AQ = -2.0*DTUBE 
BQ = (DTUBE**2.0) 

CQ1 = PR*DTUBE 

CQ2 = 144 . 0*QD0T*(CQ1**2 . 0) 

CQ3 = UEST*ALMTD*(9.869604)*DTUBE 
CQ = CQ2/CQ3 

PQ = -((AQ**2.0)/3.0)+BQ 

QQ = (2 .0*( (AQ/3 .0)**3 .0) ) - (AQ*BQ/3.0)+CQ 

QBIG = ((PQ/3.0)**3.0)+( (QQ/2.0)**2.0) 

AARG = - (QQ/2 - 0)+SQRT (QBIG) 

ABIG = ( ABS( AARG) )**0. 333333 
BBRG = - (QQ/2 . 0) -SQRT(QBIG) 

BBIG = (ABS(BBRG))**0. 333333 
DOTL = ABIG + BBIG - (AQ/3.0) 

ALSHEL = (ANPLATES+1 .0)*DOTL 
AVAL = 0.867 

FFBN = 0.4307652 + (4 . 52 1962E-03* (DOTL) ) - (6.335725E-05*(D0TL**2 
1.0)) + (3.716571 E-07* (D0TL**3 . 0) ) 

GXT = 1560.0* (WDOTS/ (D0TL**2.0)) 

REXT = (DTUBE*GXT)/(29.0*VISCST) 

RC = 1.0 

IF ( REXT - 1000 . 0 ) 200,150,150 
150 RC = 1.0 
GOTO 300 

200 RC = 0.4812508 + (2 . 726048E-03*(REXT) ) - (7.739889E-06*(REXT**2. ) 

1) + ( 9 . 96093 IE- 09* ( REXT**3 . 0 ) ) - (4.431738e-12*(REXT**4.0) ) 

300 FFBP =FFBN*RC 
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FFBH = FFBP+O. 125 

REXP = FFBP*REXT 

REXH = FFBH*REXT 

AREP = AL0G(REXP)/2. 302585093 

AREH = AL0G(REXH)/2. 302585093 

AFX = 1.397542 - (0.96108*(AREP) ) + (0.064751*(AREP**2.0)) + (0.0 
106305*(AREP**3 .0) ) 

AFRIC = 10.0**AFX 

AJX = -0.359018 - (0.259608*(AREH)) - (0.094385*(AREH**2.0)) + (0 
1 .012556*(AREH**3.0) ) 

AJFAC = 10.0**AJX 

HS1 = 0 . 41 5*CPSF*GXT*FFBH*AJ FAC 

HS2 = (AKTST/(CPSF*VISCST) ) **0.66667 

HSHELL = HS1*HS2 

DPSF = 0.00875*( (AJFAC*ALSHEL)/(AVAL*PR*DTUBE*0.4) ) 

DPSM = 0 . 001551 191*( ( (ALSHEL*1 .0)/ (0.4*D0TL) )-l .0) 

DPSHELL = (0.3*(DPSF+DPSM)/RHOSF)*( (GXT*FFBP)/10000.0) 

PT = PR*DTUBE 

ANTUBES = ( (0 . 7854*(D0TL-DTUBE)**2 .0)/(PT**2 . 0) ) 

WTUBE = WDOTT/ANTUBES 

AREAT = (0 . 7854* ( DTUBE - ( 2 . 0*TTUBE ) ) **2 . 0 )/144 . 0 
VTUBE = WTUBE/ (AREAT*RHOT) 

QTUBE = RHOT*(VTUBE**2.0)/(2. 0*32. 174*144.0) 

RETUBE = VTUBE*RH0T*DTUBE/(12.0*VISCT) 

DTUBE I = DTUBE-(2.0*TTUBE) 

PRTUBE = (3600*V I SCT*CPT ) / AKTT 
IF (PRTUBE-O. 1 ) 330,330,340 

330 THC = (12. 0*AKTT /DTUBE I ) * ( 7 . 0+ ( 0 . 025* ( RETUBE*PRTUBE ) **0 . 8 ) ) 

GOTO 440 

340 IF (RETUBE-2000.0) 350,350,400 
350 TFRIC=64. O/RETUBE 

THC = 4 . 364* (12. 0*AKTT/DTUBE I ) 

GOTO 450 
400 AK = 0.0001 
AKD = AK/DTUBEI 

FRIC1 = ALOG 1 0 ( ( AKD/3 . 7 ) + ( 5 . 74/ ( RETUBE**0 . 9 ) ) ) **2 . 0 
TFRIC = 0.25/FRIC1 

THC = 0 . 026* (12. 0*AKTT/DTUBE I ) * ( RETUBE**0 . 8) * ( PRTUBE**0 . 4 ) 

435 GOTO 450 

440 IF (RETUBE-2000.0) 442,442,445 
442 TFRIC=64. O/RETUBE 
GOTO 450 
445 AK = 0.0001 
AKD = AK/DTUBEI 

FRIC1 = ALOGIO ( (AKD/3 . 7 ) + ( 5 . 74/ ( RETUBE**0 . 9) ) ) **2 . 0 
TFRIC = 0.25/FRIC1 
450 C0ND2 = 12.0*AKTUBE/TTUBE 

UNEW = 1 . 0/ ( ( 1 - O/THC ) + ( 1 .0/HSHELL) + (l .0/C0ND2)) 

DPTUBE = (2.0*QTUBE) + ( (TFRIC* (ALSHEL/DTUBEI))*QTUBE) 

CQ3 = UNEW*ALMTD*( 9. 869604 )*DTUBE 
CQ = CQ2/CQ3 

QQ = ( 2 . 0* ( ( AQ/3 . 0) **3 . 0) ) - ( AQ*BQ/3 . 0) + CQ 
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QBIG = ((PQ/3.0)**3.0) + ( (QQ/2.0)**2.0) 

AARG = - (QQ/2 . 0 ) +SQRT (QBIG) 

ABIG = (ABS (AARG) )**0. 333333 
BBRG = - (QQ/2.0) -SQRT(QBIG) 

BBIG = (ABS(BBRG) )**0 . 333333 
DOTL2 = ABIG + BBIG - (AQ/3.0) 

ERROR = ABS((DOTL-DOTL2)/DOTL) 

IF (ERROR - 0.001) 600,600,35 
600 TMINPR = PH0T*D0TL/(2. 0*10000.0) 

TMINSC = (0.005*D0TL) + (0.0001*(DOTL**2.0)) 

IF (TMINPR. GT. TMINSC) THEN 
TMIN = TMINPR 
GOTO 650 
ELSE 

TMIN = TMINSC 
ENDIF 

650 AMINSUL = (3. 141593*D0TL*(D0TL+ALSHEL)*TINS*(DENINS/1728.0) ) + (3. 
&141 593* (DOTL2**2.0)*TINS*(DENINS/1 728.0)) 

AMHEADS = 3. 141593*(D0TL**2.0)*TMIN*(DENSSH/1728.0) 

AMSHELL = 3 . 141593*DOTL*(DOTL+ALSHEL)*TMIN*(DENSSH/1728.0) 

AMPLATES = ANPLATES*(2.0*3. 141593*( (DOTL**2.0)/4.0)*TMIN*(DENSSH/1 
&1728.0) ) 

AMTSHT = 2 . 0*3 . 1 4 1 593* ( ( D0TL**2 . 0 ) /4 . 0 ) *2 . 0*TM I N* (DENSSH/ 1728.0) 
AMTUBES = 0. 785398* ( (DTUBE**2.0) - (DTUBEI**2.0))*ALSHEL*ANTUBES*( 
1DENSSH/1728.0) 

AMSTRT = 0.05*(AMINSUL+AMHEADS+AMSHELL+AMPLATES+AMTSHT+AMTUBES) 
ANETMASS = AMINSUL+AMHEADS+AMSHELL+AMPLATES+AMTSHT+AMTUBES+AMSTRT 
VNAK1 = 0 . 785398*(DTUBE**2 . 0)*ALSHEL*ANTUBES 
VNAK2 = 0. 523599* (DOTL**3.0) 

XMNHEX = ( VNAK1 +VNAK2 ) * ( RHOT/ 1 728.0) 

RETURN 

END 


SUBROUTINE XLITHP(T,RHO,CP,VIS,TK) 

THERMAL PROPERTIES OF LITHIUM LIQUID 
T = INPUT TEMPERATURE (deg-R) 

RHO = DENSITY (Lbs/cu-Ft) 

CP = SPECIFIC HEAT (BTU/LB-R) 

VIS = DYNAMIC VISCOSITY (Lb/Ft-Sec) 

TK = THERMAL CONDUCTIVITY (BTU/Hr-Ft-Sec) 

RHO = 34.393537 - (0.003456*T) + (2 .080291E-07*(T**2 .0) ) 

CP = 1.356357 - (0.00068*T) + (5.006625E-07*(T**2.0) ) - (1.805873E 
&-10*(T**3.0) ) + (3.1 55294E- 14* (T**4 . 0) ) - (2 . 136471 E- 18*(T**5 . 0) ) 
VIS = 0.001085 - (1.326497E-06*T) + (7.245662E-10*(T**2.0)) - (1.7 
&7 4380E - 13* (T**3 . 0 ) ) + (1 . 6326 10E - 1 7* (T**4 . 0) ) 

TK = 25.235376 + (0.001588*T) 

RETURN 

END 
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c 

c 

SUBROUTINE XNAKPR(T,RHO,CP,VIS,TK) 

THERMAL PROPERTIES OF NaK LIQUID 
T = INPUT TEMPERATURE (deg-R) 

RHO = DENSITY (Lb/cu-Ft) 

CP = SPECIFIC HEAT (BTU/Lb-R) 

VIS = DYNAMIC VISCOSITY (Lb/Ft-Sec) 

TK = THERMAL CONDUCTIVITY (BTU/Hr-Ft-R) 

RHO = 58. 54299- (0.008208*T) 

CP = 0.26478 - (0.000089*(T)) + (4.093060E-08*(T**2.0)) - 
& (4 . 532 164E- 12* (T**3 - 0) ) 

VIS = 0.000822 - (1 . 142435E-06*(T) ) + (6. 1 25737E- 10* (T**2 . 0) ) - 
& (1 .130181 E- 13* (T**3.0) ) 

TK = 7.313351 + (0.013983*(T)) - ( 7 . 660423E-06* (T**2 . 0) ) + 

& (1 . 189370E-09*(T**3.0) ) 

RETURN 
END 


SUBROUTINE HEXEPR(Amwmix, Pmix,Tmix,Gma,Cpmix,Rhomix,Amumix,Akmix, 
&Prmix) 

PROPERTIES OF HELIUM-XENON MIXTURES 
T IN deg-R 

WRITE (6,*) 'Amwmix, Pmix,Tmix=' ,Amwmix, Pmix,Tmix 
Gma=l .667 
Ami =4.0 
Am2=131 .3 

X2= (Amwmix- Ami )/(Am2 -Ami) 

Xl=l . 0-X2 
Cpmix=4.97/Amwmix 

Rhomix=144.0*Pmix*Amwmix/(1545.0*Tmix) 

IF (Tmix.GT. 1000.0) THEN 

GOTO 10 

ELSE 

Amuhe=5.7E-06+1.45E-08*Tmix 

GOTO 100 

ENDIF 

10 IF (Tmix.GT. 1600.0) THEN 
GOTO 20 
ELSE 

Amuhe=8.867E-06+l . 1333E-08*Tmix 

GOTO 100 

ENDIF 

20 Amuhe=l . 1114E-05+9.930E-09*Tmix 
100 IF (Tmix.GT. 1100.0) THEN 
GOTO 30 
ELSE 

Akhe=0 . 0403+8 . 47 1 E- 05*Tmi x 

GOTO 200 

ENDIF 
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30 IF (Tmix.GT. 1800.0) THEN 
GOTO 40 
ELSE 

Akhe=0. 0589+6. 786E-05*Tmix 

GOTO 200 

ENDIF 

40 Akhe=0. 0625+6. 583E-05*Tmix 
200 IF (Tmix.GT. 1200.0) THEN 
GOTO 50 
ELSE 

Amuxe=5.25E-06+2. 1375E-08*Tmix 

GOTO 300 

ENDIF 

50 IF (Tmix.GT. 2000.0) THEN 
GOTO 60 
ELSE 

Amuxe=l .0500E-05+1 . 7000E-08*Tmix 

GOTO 300 

ENDIF 

60 Amuxe=l . 5500E-05+1 .45E-08*Tmix 
300 IF (Tmix.GT. 1200.0) THEN 
GOTO 70 
ELSE 

Akxe=0 . 00115+4 . 375E-06*Tmi x 

GOTO 400 

ENDIF 

70 IF (Tmix.GT. 2500.0) THEN 
GOTO 80 
ELSE 

Akxe=0 . 00252+3 . 2308E-06*Tmi x 

GOTO 400 

ENDIF 

80 Akxe=0. 00342+1. 8000E-06*Tmix 
400 Amul=Amuhe 
Amu2=Amuxe 
Akl=Akhe 
Ak2=Akxe 

Duml =2 . 82843*SQRT ( 1 . 0+ ( Aml/Am2 ) ) 

Dum2= 1 . O+SQRT ( Amu 1/Amu2 ) * ( Am2/Aml ) **0 . 25 
Ps i 1 2=Dum2**2 . O/Duml 
Dum3=Amu2/Amul*(Aml/Am2) 

Psi21=Dum3*Psil2 
Dum4= 1 . O+Ps i 1 2* ( X2/X1 ) 

Dum5= 1 . O+Ps i 2 1* ( X1/X2 ) 

Amumi x=Amu 1/Dum4+Amu2/Dum5 
Dum6=2 . 82843*SQRT ( 1 . 0+ ( Aml/Am2 ) ) 

Dum7 = ( 1 . O+SQRT ( Akl/Ak2 ) * ( Ami/ Am2 ) **0 . 25 ) **2 . 0 
Dum8=2 . 82843*SQRT ( 1 . 0+ ( Am2/Aml ) ) 

Dum9= ( 1 . O+SQRT (Ak2/Akl ) * ( Am2/Aml ) **0 . 25 ) **2 . 0 
A1 aml2=Dum7/Dum6 
A1 am21=Dum9/Dum8 
Duml 0= ( Aml+Am2 ) **2 . 0 
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Duml 1=2 . 41* (Ami - Am2) * ( Ami -0 . 142*Am2 ) 
Duml2=2.41*(Am2-Aml)*(Am2-0. 142*Aml) 
Forl2=Alaml2*(l .O+Dumll/DumlO) 
For21=Al am21*( 1 . 0+Duml2/Duml0) 
Duml3=1.0+Forl2*(X2/Xl) 
Duml4=1.0+For21*(Xl/X2) 
Akmix=Akl/Duml3+Ak2/Duml4 
Prmi x=3600*Amumi x*Cpmi x/Akmi x 
END 
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SDEBUG 

$NOTRUNCATE 

SUBROUTINE WINDLOS 

C **** WINDLOS is cheked-out and final as of 10-06-92 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JCON 

CHARACTER*^ GAS ( 2 ) , COMPTYPE , TURBTYPE , CLNTTYPE 


CHARACTER*20 GENTYPE, INTTYPE 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , WARN I NGC , 
& WARNINGR,WARNINGG 

COMMON/D I AGNOS/ ERRORT, ERRORC, ERRORR, ERRORG, ERRORF, WARN INGT, 

& WARN I NGC, WARN I NGR, WARN I NGG 

COMMON/CON FI G/COMPTYPE , TURBTYPE , GENTYPE , INTTYPE , CLNTTYPE 

COMMON/ FLUID/ G AS , GAMMA , MO L WT , C P , PRNDT L 

C0MM0N/CYCLE/TEMP(17) .PRESS (17) , FLOW (17) , PR(17) ,BETA,COMFLOW, 

& PRC, EFFC, EFFT, EFFR, EFFA,XBLC,XBLT, SPEED, POWER, PWRFCTR, 

& DP0P6, DP0P7 , DP0P8 , DP0P9 , DP0P10 , DP0P13 , DP0P14 , DP0P15 , 

& DP0P16, DP0P1 7, NETSP,GROSSEP,EFFCYCLE, WINDAGE 

COMMON/ALTERNTR/DGENRTR , DGENSTR, LGENTOT , MASSGEN , TI PSPDG , COE , 

& ETAGEN , COOLING , WCLNT , VOLTAGE , KVA, GENASP , TINCLNT, TOUTCLNT , 

& CPCLNT, LIFETIME 

COMMON/AERODYN/ETACOMP , COMPD I A , UT I PC , RADHC , RAD 1 C , 

& RADNC , ANSQC , ANSQCL , COMPSS , I STGC , ETATURB , TURBDI A, UT I PT , 

& RADHT , RADI T , RADNT , ANSQT , ANSQTL , TURBSS , I STGT 

COMMON/CONST/PI, RU, GO, JCON, RZERO 

TW=960. 

PW=PRESS(1) 

RHOW= PW* 1 44 . / ( RU/MOL WT*TW ) 

0MEGA=SPEED*PI/30. 

GAPW=DGENRTR*.016 

REW=RHOW*GAPW/ 1 2 . *OMEGA* ( DGENRTR/2 . ) / 1 2 . /V I SCOS (TW) 

WC0NST=.0406 

EXPNT=- .2937 

LAMBDAW=WCONST*REW**EXPNT 

WINDAGE=LAMBDAW*RH0W*PI*0MEGA**2* ( (DGENRTR/2 . )/12 . )**4 
& *(LGENT0T/12. )/GO/JCON*OMEGA* 3600. /3413. 

RETURN 

END 
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SUBROUTINE BEARING 

C **** BEARING is cheked-out and final as of 10-06-92 
SDEBUG 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

CHARACTERS COMPTYPE , TURBTYPE , CLNTTYPE 


CHARACTER*20 GENTYPE, INTTYPE 

COMMON/CONFIG/COMPTYPE, TURBTYPE, GENTYPE, INTTYPE, CLNTTYPE 
COMMON/GASBRG/BRGLOSS 

C0MM0N/CYCLE/TEMP(17) ,PRESS(17) ,FL0W(17) ,PR(17) ,BETA,COMFLOW, 
& PRC , EFFC , EFFT, EFFR, EFFA, XBLC , XBLT, SPEED, POWER, PWRFCTR, 

& DPOP6,DPOP7,DPOP8,DPOP9,DPOP10,DPOP13,DPOP14,DPOP15, 

& DP0P16,DP0P17,NETSP, GROSSER, EFFCYCLE, WINDAGE 

BRGLOSS=0 . 02*POWER 

RETURN 

END 


SUBROUTINE GENSIZE 

C **** GENSIZE is cheked-out and final as of 10-06-92 
SDEBUG 

**** This subroutine utilizes performance, sizing, and mass algorithms 

to formulate geometry, mass and proportion of a Ring-Wound two-pole 
toothless [TPTL] PM generator. The algorithms are based on detailed 
point designs generated by AiResearch Los Angeles Division [ALAD] 
during May-June of 1992. The coefficients used in this subroutine 
are derived from the reference designs for implementation into 
classical "first-principle" N*D**2*L scaling laws for generators. 

The routine may generate warning messages in the variable "WARNINGG". 
Warnings are used where some concern exists over the accuracy of 
calculated values due to the operating domain. Error messages are 
also produced in variable "ERRORG". Error messages generally 
indicate input data errors or grossly out-of-range parameters. 
Calculation is halted and the "RETURN" command executed when an 
error message is generated. The overall efficiency predicted 
includes consideration of a small windage loss associated with 
Potassium vapor in the gap at a temperature of 500 F. The technology 
**** assumed is based on commercial materials available today. 


C ********** Nomenclature 


c 

CLNTTYPE 

CH*10 

Generator Coolant Descripptor, e.g., 'N-HEPTANE 

c 

COE 

REAL 

Current Rotor Sizing Coefficient [=f (TIPSPDG,KVA)] 
Compressor Type, either 'AXIAL' or 'RADIAL' 

c 

COMPTYPE 

CH*10 

c 

COOLING 

REAL 

Generator Induced Cooling Load [EM+windage+beargs] , kWt 

c 

CPCLNT 

REAL 

Coolant Specific Heat, BTU/(lbm-R) 
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c 

DGENRTR 

REAL 

c 

DGENSTR 

REAL 

c 

ERRORG 

CH*64 

c 

GENASP 

REAL 

c 

GENTYPE 

CH*20 

c 

INTTYPE 

CH*20 

c 



c 

KVA 

REAL 

c 

LGENTOT 

REAL 

c 

LIFETIME 

REAL 

c 

MASSEM 

REAL 

c 

MASSGEN 

REAL 

c 

OLDTS 

REAL 

c 

PI 

REAL 

c 

POWER 

REAL 

c 

PWRFCTR 

REAL 

c 

SPEED 

REAL 

c 

TINCLNT 

REAL 

c 

TI PSPDG 

REAL 

c 

TOUTCLNT 

REAL 

c 

TURBTYPE 

CH*10 

c 

VOLTAGE 

REAL 

c 

WARN I NGG 

CH*64 

c 

WCLNT 

REAL 


Generator Rotor Diameter Including Sleeve, inches 
Generator Stator Diameter Including Sleeve, inches 
Generator Subroutine Diagnostic Error Message 
Generator Rotor Aspect Ratio, Sleeve OD/Magnet Length 
Generator Type Descriptor 'RING WOUND TPTL PMG' 
Electrical Interface Descriptor, either 'TRANSFORMER' 
or 'RECTIFIER' 

Generator Output, kVA 

Overall Length of Generator EM Section, inches 
Generator Design Lifetime, years 
Estimated Generator Electro-magnetic Mass, lbm 
Estimated Generator Mass w/ Integration Allowance, lbm 
Old Tip Speed Value [used for convergence test], ft/sec 
3.14159265 

Generator Terminal Power, kWe 

Load Power Factor at Generator Terminals [lagging] 
Generator Design Rotating Speed, rpm 
Specified Generator Coolant Inlet Temperature, deg R 
Generator Rotor Surface Speed, ft/sec [limit is 700] 
Specified Generator Coolant Outlet Temperature, deg R 
Turbine Type, either 'AXIAL ' or 'RADIAL 
Desired Generator Output Voltage, 3Ph, line-line, RMS 
Generator Subroutine Diagnostic Warning Message 
Calculated Coolant Flow Rate, lbm/sec 


IMPLICIT REAL (A-H) 
IMPLICIT INTEGER (I-J) 
IMPLICIT REAL (K-Z) 


CHARACTER*^ COMPTYPE , TURBTYPE , CLNTTYPE , TVAR( 18) 


CHARACTER*20 GENTYPE, INTTYPE 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , WARN INGC , 
& WARN I NGR , WARN I NGG 


COMMON/D I AGNOS/ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , 
& WARN INGC, WARN I NGR, WARN I NGG 

COMMON/OPT IM/ VAR( 18) ,TVAR, I PRINT 


COMMON/CONF I G/COMPTYPE , TURBTYPE , GENTYPE , INTTYPE , CLNTTYPE 
COMMON/ALTERNTR/DGENRTR , DGENSTR , LGENTOT , MASSGEN , TI PSPDG , COE , 

& ETAGEN , COOLING , WCLNT , VOLTAGE , KVA , GENASP , TINCLNT, TOUTCLNT , 

& CPCLNT, LIFETIME 

COMMON/CYCLE/TEMP ( 1 7 ) , PRESS ( 1 7 ) , FLOW ( 1 7 ) , PR( 1 7 ) , BETA , COMF LOW , 
& PRC, EFFC,EFFT,EFFR,EFFA,XBLC,XBLT, SPEED, POWER, PWRFCTR, 

& DPOP6,DPOP7,DPOP8,DPOP9,DPOP10,DPOP13,DPOP14,DPOP15, 

& DP0P16,DP0P17,NETSP,GR0SSEP,EFFCYCLE, WINDAGE 
COMMON/CONST/ P I , RU , GO , JCON , RZERO 
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DIMENSION ZERO(9) 


EQUIVALENCE (ZERO(l) ,DGENRTR) , (ZERO(2) ,DGENSTR) , (ZERO(3) ,LGENTOT) , 

& (ZERO(4) ,MASSGEN) , (ZERO(5) ,TIPSPDG) , (ZERO(6) ,COE ), 

& ( ZERO ( 7 ) , ETAGEN ) , (ZER0(8) , COOLING) , (ZERO(9) ,WCLNT ) 

C **** Zero-out generator variables such that zero's are returned in the 
C **** event of failure to reach a solution. 

DO 5, 1-1,9 
5 ZERO ( I ) =0 . 


C **** Compute the design generator output kVA as the basis for sizing. 

C **** Reset generator error and warning messages. Identify generator type. 


KVA=POWER/PWRFCTR 
ERRORG=' ' 

WARNINGG=' ' 

IF (GENTYPE.EQ. ' ') GENTYPE='RING WOUND TPTL PMG' 

IF (INTTYPE.EQ. ' ') I NTTYPE=' TRANSFORMER' 

IF (CLNTTYPE.EQ. ' ') THEN 
CLNTTYPE= ' DOWTHERM A' 

CPCLNT=.5 

TINCLNT=920. 

TOUTCLNT=940. 

END IF 
ITER=0 

C **** Check the specified rotor aspect ratio [L/D] . If outside the range 
C **** of 2 to 3, set equal to 2.5. 

IF (GENASP.LT. 2. .0R.GENASP.GT.3. ) THEN 

GENASP=2.5 

WARNINGG= 

& 'SPECD. GENERATOR ASPECT RATIO OUT OF RANGE; RESET TO 2.5' 

END IF 

C **** Check the specified electrical power factor. If outside the range 
C **** of .7 to 1.0, set equal to 0.9. 

IF ( PWRFCTR.LT. 0.7. OR. PWRFCTR.GT. 1 .0) THEN 

PWRFCTR=0.9 

KVA=POWER/PWRFCTR 

WARNINGG= 

& 'SPECD. ELECTRICAL POWER FACTOR OUT OF RANGE; RESET TO 0.9' 

END IF 

C **** perform an input check to assure that design parameters 


94 



o o o o o 


C are within the validity limits of the algorithms. If not, load an 
C **** apporpriate diagnostic message into ERRORG and exit subroutine. 

IF (VOLTAGE.LT. 1000.. OR. VOLTAGE. GT. 10000.) THEN 
ERRORG='SPECIFIED OUTPUT VOLTAGE IS OUTSIDE VALID 1-10 KV RANGE' 

RETURN 
END IF 

IF (KVA. LT. 50.. OR. KVA. GT. 6000.) THEN 
ERRORG= 

& 'SPECIFIED POWER LEVEL IS OUTSIDE VALID 50-6000 kVA RANGE' 

RETURN 
END IF 

C **** Compute the rotor sizing coefficient, rotor diameter and tip speed 
C based on design algorithms. Rotor diameter includes sleeve. Starts 
C **** by assuming TIPSPDG=700. 

TIPSPDG=700. 

10 COE=(MAX(450. , MIN(TI PSPDG , 700. ) )/700 . )** . 468* (40 . 65+ . 00066* 

& VOLTAGE* (MAX ( 450 . , MI N (T I PSPDG , 700 . ) ) /700 . ) **2 . 5 ) *KVA** ( - . 075 ) 
DGENRTR=COE*(KVA/(SPEED*GENASP) )**. 333333 
0LDTS=TI PSPDG 

TIPSPDG=PI*DGENRTR/12.*SPEED/60. 

ITER=ITER+1 
IF (ITER. GT. 50) THEN 

ERRORG=' ITERATION LIMIT EXCEEDED IN SUBROUTINE GENSIZE' 

WRITE (*,20) ERRORG 
WRITE (61,20) ERRORG 
RETURN 
END IF 

C **** Check for convergence of design rotor tip speed. 

IF (ABS( (TIPSPDG-OLDTS)/TIPSPDG) .GT. .001) GO TO 10 

**** Check to insure that the 700 fps rotor tip speed limit is not 

violated by the currently requested rotating speed. If the limit 
is exceeded, a warning diagnostic message is loaded, a new lower speed 
value is calculated, the rotor speed variable is reset, and processing 
**** continues. 

IF (TIPSPDG.GT.700. )THEN 
WARNINGG= 

& 'SPECD. ROTOR SPEED CAUSES GENERATOR TIP SPEED>700 FPS; N RESET' 

COE= ( 40 . 65+ . 00066*V0LTAGE) *KVA** ( - . 075 ) 

SPEED=(700 .*60 . *12 . /PI/COE)** 1 . 5*SQRT (GENASP/KVA) 

VAR(6)=SPEED 

DGENRTR=COE*(KVA/(SPEED*GENASP) ) ** . 333333 
TIPSPDG=PI*DGENRTR/12.*SPEED/60. 

END IF 
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C **** Check to insure that generator surface speed is >= 450 fps to 
C preserve accuracy in mass prediciton. Also check that the specified 


C **** electrical interface is consistent with the algorithm. 

IF (TIPSPDG.LT. 450.) WARNINGG= 

& 'GENERATOR SURFACE SPEED BELOW 450 FPS; MASS ESTIMATE IS SUSPECT 
IF (INTTYPE.NE. 'TRANSFORMER') WARNINGG= 

&'GEN INTERFACE OTHER THAN TRANSFORMER SPECIFIED; ACCURACY SUSPECT' 

c **** Estimate the OD and total length of the generator EM assembly. 


DGENSTR=DGENRTR*(TIPSPDG/700. )**(-. 4)*(2. 14- . 120*KVA**. 175- 
& . 225E-4*VOLTAGE) 

LGENT0T=DGENRTR*(2.98-.02*DGENRTR)*(GENASP+.48)/2.98 

**** Compute the electro-magnetic [EM] mass of the current configuration 

Mass includes rotor magnet and sleeve, magnetic conductor, copper, and 
**** insulation. A mass correction is also made for L/D.ne.2.5. 

Correct for L/D values other than 2.5 by scaling mass by 
[ (GENASP+ . 48) /2 . 98] which relects the approximate overall generator 
length ratio. 


MASSGEN=1 . 938*(TIPSPDG/700 .)**(-. 591 )*( 1 .0467- . 000033*VQLTAGE)* 


& DGENRTR**2.85*(GENASP+.48)/2.98 

**** a]] reference design cases run at 500 and 700 fps had overall 

efficiencies [including small windage loss] in a tightly clustered 
group with no specific trends. Therefore, the average value of 
**** 96.62 % is assigned to all algorithm designs. 

ETAGEN=.9662 

RETURN 

20 FORMAT (1X.A64) 

END 


SUBROUTINE STRNTH (TMATL, FPL.SIGPV) 

SDEBUG 

IMPLICIT REAL (A-H,K-Z) 
c ***** DESIGN STRENGTH SUBROUTINE ***** 


C **** Convert to degrees K 
TT = TMATL/ 1.8D0 
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C TZM Correlation for 1% Creep 


CH = -22.0356 
A = -77.43 
B = -2530.33 
C = 39963.9 

C **** Compute loglO (Lifetime in hours) 

THET = DL0G10(FPL*8. 76D3) 

C **** Initialize loglO (Sigma) = 3., Sigma = 1000. MPa 
SIGKSI=10. 

DO 50 1=1,100 

C **** Compute Lifetime based on current Sigma 

THETA=CH+(A*S IGKSI +B*DL0G 1 0 ( S I GKS I ) +C ) /TT 
FUNC = THET - THETA 
FPRIME = - ( A+B/ ( S I GKS I *DL0G (10.)) )/TT 
DELTA = FUNC/FPRIME 
SI GKS 10 = SIGKSI 
SIGKSI = SIGKSI - DELTA 
IF (DABS(FUNC) .LT. l.D-6) GO TO 60 
50 CONTINUE 

C **** Convert from ksi to psi 

60 SIGPV = S IGKS 1*1000 . 

RETURN 

END 


SUBROUTINE RADTURB 

C **** RADTURB is cheked-out and final as of 9-25-92 
$DEBUG 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JCON 

CHARACTER* 10 GAS ( 2 ) , COMPTYPE , TURBTYPE , CLNTTYPE , TVAR (18) 
CHARACTER*20 GENTYPE, INTTYPE 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , WARN I NGC , 
& WARN I NGR , WARN I NGG 

COMMON/OPT I M/ VAR (18) ,TVAR, I PRINT 

COMMON/D I AGNOS/ ERRORT, ERRORC, ERRORR, ERRORG, ERRORF, WARN INGT, 
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& WARNINGC , WARN INGR , WARN INGG 


COMMON/ FLU ID/ GAS , GAMMA , MOLWT , CP , PRNDTL 
COMMON/AERODYN/ ETACOMP , COMPDIA, UTI PC , RADHC , RAD1C , 

& RADNC , ANSQC , ANSQCL , COMPSS , I STGC , ETATURB , TURBDIA, UT I PT , 

& RADHT , RAD1T , RADNT , ANSQT , ANSQTL, TURBSS , ISTGT 

COMMON/ALTERNTR/DGENRTR,DGENSTR,LGENTOT,MASSGEN,TIPSPDG,COE, 
& ETAGEN , COOL I NG , WCLNT , VOLTAGE , KVA , GENASP , TlNCLNT , TOUTCLNT , 

& CPCLNT, LIFETIME 

COMMON/CONFIG/COMPTYPE,TURBTYPE,GENTYPE, INTTYPE,CLNTTYPE 
COMMON/CYCLE/TEMP(17),PRESS(17),FLOW(17),PR(17),BETA,COMFLOW, 
& PRC , EFFC , EFFT , EFFR, EFFA,XBLC , XBLT, SPEED, POWER, PWRFCTR, 

& DPOP6 , DPOP7 , DP0P8 , DPOP9 , DPOPIO , DPOP13 , DPOP14 , DPOP1 5 , 

& D P0P16, DPOP1 7, NETSP, GROSSEP, EFFCYCLE, WINDAGE 
COMMON/CONST/PI , RU , GO , JCON , RZERO 

C **** Nomenclature for Subroutine RADTURB 


c 

ACRST1 

REAL 

c 

ACRST2 

REAL 

c 

ACRST3 

REAL 

c 

ANG1 

REAL 

c 

ANG2 

REAL 

c 

ARAT 

REAL 

c 

AREA2 

REAL 

c 

AMAX 

REAL 

c 

B 

REAL 

c 

C2 

REAL 

c 

CLEAROB 

REAL 

c 

DELHACT 

REAL 

c 

DELHISEN 

REAL 

c 

DELTACT 

REAL 

c 

DELTISEN 

REAL 

c 

DENRAT 

REAL 

c 

EBASE 

REAL 

c 

EFFT 

REAL 

c 

EPOLY 

REAL 

c 

ERRORT 

CHAR*64 

c 

ETAC 

REAL 

c 

ETAR 

REAL 

c 

ETATTS 

REAL 

c 

ETATURB 

REAL 

c 

ETTR 

REAL 

c 

EXDIA 

REAL 

c 

HUBDIA 

REAL 

c 

ITER 

INTEG 

c 

MACH2 

REAL 

c 

MACH3 

REAL 

c 

MUT 

REAL 

c 

NST 

REAL 

c 

NSTURB 

REAL 

c 

PHI 

REAL 


Turbine inlet critical sonic velocity, ft/sec 

Turbine rotor exit critical sonic velocity, ft/sec 

Turbine diffuser exit critical sonic velocity, ft/sec 

Flow angle at nozzle exit, degrees from radial 

Flow angle at rotor tip, degrees from radial 

Turbine diffuser area ratio, dmls 

Annular area required at rotor exit, sq in 

Max annular area at rot. exit w/ current ETTR, PHI, dmls 

Rotor inlet blade height [B-width], inches 

Sonic velocity at rotor exit, R 

Clearance:B-width ratio, dmls 

Actual delta enthalpy across turbine, BTU/lbm 

Isentropic delta enthalpy across turbine, BTU/lbm 

Actual delta total temperature across turbine, R 

Isentropic delta total temperature across turbine, R 

Static: total density ratio at rotor inlet, dmls 

Base [uncorrected] overall adiabatic efficiency, dmls 

Turbine t-t adiuabatic efficiency incl. diffuser, dmls 

Polytropic efficiency from Balje reference, dmls 

Turbine design error message 

Turbine t-s ad. efficiency after clearance corr., dmls 

Turbine t-s ad. efficiency after Re No. correction., dmls 

Turbine t-s ad. efficiency after disc friction corr, dmls 

Turbine t-t ad. efficiency after conversion, dmls 

Diffuser OD to rotor tip OD ratio, dmlls 

Exducer shroud diameter, inches 

Exducer hub diameter, inches 

Iteration counter 

Rotor exit Mach No., dmls 

Diffuser exit Mach No., dmls 

Turbine average fluid viscosity, lbm/ft-sec 

Turbine specific speed [Balje form], dmls 

Turbine specific speed, rpm/ft A 3/4-sec A l/2 

Exducer hub:tip radius ratio, dmls 
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c 

PSx 

REAL 

Static pressure at station "x", psia 

c 

PS0PT2 

REAL 

Static:total pressure ratio at rotor exit, dmls 

c 

PS0PT3 

REAL 

Static:total pressure ratio at diffuser exit, dmls 

c 

PTx 

REAL 

Total pressure at station "x", psia 

c 

R 

REAL 

Working fluid gas constant, ft-lbf/lbm-R 

c 

REFFT 

REAL 

Turbine Reynolds No., dmls 

c 

REX 

REAL 

Exducer shroud radius, inches 

c 

RH01 

REAL 

Rotor inlet fluid [total conditions] density, lbm/cu ft 

c 

RH02 

REAL 

Static density at rotor exit, lbm/cu ft 

c 

RHUB 

REAL 

Exducer hub radius, inches 

c 

TSx 

REAL 

Static temperature at station "x", R 

c 

TSOTT2 

REAL 

Static:total temperature ratio at rotor exit, dmls 

c 

TSOTT3 

REAL 

Static:total temperature ratio at diffuser exit, dmls 

c 

TTx 

REAL 

Total temperature at station "x", R 

c 

TTD 

REAL 

Turbine discharge total temperature, R 

c 

TURBDIA 

REAL 

Turbine rotor tip diameter, inches 

c 

TURBSS 

REAL 

Turbine specific speed, rpm/ft A 3/4-sec A l/2 

c 

U1 

REAL 

Turbine rotor tip speed, ft/sec 

c 

U2H 

REAL 

Exducer hub tangential velocity, ft/sec 

c 

U2T 

REAL 

Exducer tip tangential velocity, ft/sec 

c 

UTIPT 

REAL 

Rotor tips speed, ft/sec 

c 

VACR 

REAL 

Critical velocity ratio [V/Acr] at rotor inlet, dmls 

c 

VU 

REAL 

Tangential fluid velocity at rotor inlet, ft/sec 

c 

VX 

REAL 

Meridinal fluid velocity at rotor inlet, ft/sec 

c 

VX2 

REAL 

Meridinal fluid velocity at rotor exit, ft/sec 
Blade relative velocity at rotor inlet, ft/sec 

c 

W1 

REAL 

c 

W2H 

REAL 

Blade relative velocity at rotor exit hub, dmls 

c 

W2T 

REAL 

Blade relative velocity at rotor exit tip, dmls 

c 

WARNINGT 

CHAR*64 

Turbine design warning message 

c 

WTAPT2 

REAL 

Flow parameter. [ =f (MACH2 ) ] , lbm-R A l/2/s-lbf 

c 

Z 

REAL 

Blade + splitter count at rotor inlet, dmls 


C **** Initialize and equate turbine stage design variables; reset counters. 

ITER=0 
ERR0RT=' ' 

WARNINGS' ' 

C **** Determine the average fluid viscosity in the turbine stage. 

MUT=AVV I SC (TEMP (10) , TEMP( 12) ) 

C **** Assume the Diffuser Area Ratio is 2.65 [as in TM X-2357] 


ARAT=2 .65 
MACH2=.2 


R=RU/M0LWT 

ACRST1=SQRT ( (2*GAMMA/(GAMMA+1 ) )*G0*R*TEMP( 10) ) 
Z=20. 


ANG1=72 . 
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C **** Begin analysis assuming exducer tiprwheel tip ratio = 0.7 


ETTR= . 7 
PH 1= . 4 
ANG2=70. 

ETATTS=.88 

C **** Initialize PS2, Rotor Exit Static Pressure 
PS0PT2=.97 
PS0PT3=.99 
TSOTT2=.99 
TS0TT3=1 . 

PS2=PRESS(12)*.95 

PT2=PS2/PSOPT2 

PT3=PRESS(12) 

PS3=PT3*PSOPT3 

C **** Compute the turbine discharge temperature and begin the design 
C **** iteration to converge efficiency. 

10 PS20LD=PS2 
PS2=PT2*PSOPT2 

DELTISEN=TEMP(10)*(1 . - (PS3/PRESS( 10) )**( (GAMMA-1 )/GAMMA) ) 

DELHISEN=CP*DELTISEN 

DELTACT=DELTISEN*ETATTS 

DELHACT=DELHISEN*ETATTS 

TTD=TEMP(10)-DELTACT 

TTDI SEN=TEMP ( 10) -DELTISEN 

TS2=TTD*TSOTT2 

TS3=TTD*TS0TT3 

ACRST2=SQRT ( (2*GAMMA/ ( GAMMA+1 ) ) *G0*R*TTD) 

ACRST3=ACRST2 

Ul=SQRT(GO*JCON*DELHACT/( 1 . -2 ./Z) ) 

C **** Compute wheel diameter, base efficiency, Reynolds' No. & correction. 
C **** Turbine efficiency based on Balje Reference 

TURBDIA=U1*60.*12./(SPEED*PI) 

NST=PI/30.*SPEED*SQRT(FL0W(10)*R*TTDISEN/(144.*PS2) )/ 

& (DELHISEN*JC0N*G0)**.75 

NSTURB=SPEED*SQRT ( FLOW ( 1 0 ) *R*TS3/ ( 144 . *PS2 ) )/ 

& (DELHACT*JCON)**. 75 

**** Compute radial turbine uncorrected polytropic efficiency per Balje 
**** Curve fit of data taken from: 

Balje, 0. J., "Turbomachines: A Guide to Design, Selection, 
and Theory", John Wiley and Sons, Inc., New York, 1981. 


EPOLY=. 64865+. 7 1 927* ( AL0G 1 0 ( NST ) +1 . ) -1 - 9947* (ALOG10 (NST) +1 . )**2+ 
& 5.6333*(AL0G10(NST)+1 . )**3-6.6197*(AL0G10(NST)+l . )**4+ 

& 2 . 2954* ( AL0G1 0 (NST ) +1 . )**5 
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YT=1-(PS3/PRESS( 10 ))**(( GAMMA - 1 . ) / GAMMA ) 

ZT=EP0LY*AL0G10( (PS3/PRESS( 10) )**( (GAMMA- 1 . ) /GAMMA) ) 

EBASE=(1 . -10.**ZT)/YT 

20 CONTINUE 

RH01=144.*PRESS(10)/(R*TEMP(10) ) 

VU=(1 . -2/Z)*Ul 
VX=VU/TAN(ANG1*PI/180) 

VACR=VU/(ACRST1*SIN(ANG1*PI/180) ) 

C **** Compute rotor relative velocity and rotor 'B-width'. 

W1=SQRT ( (VX**2)+(VU-U1)** 2) 

DENRAT= ( 1 .+( (GAMMA- 1 . )/ (GAMMA+1 . ) ) *VACR**2)**( 1 ./ ( 1 . -GAMMA) ) 
B=144*FLOW(10)/(DENRAT*VX*TURBDIA*PI*RH01) 

C **** Define the exducer geometry and flow vectors. 

30 REX=(ETTR*TURBDIA)/2 . 

EXDIA=REX*2. 

U2T=ETTR*U1 

VX2=U2T/TAN(ANG2*PI/180. ) 

M20LD=0. 

c DO WHILE (ABS(M20LD-MACH2) .GT. .0001) 

32 M20LD=MACH2 
ICODE=l 

CALL GASDYN (ICODE,MACH2,PSOPT2,TSOTT2,VOCT2,ROR2,AOAST2, 

& WTAPT2 , WTAPS2 , QOP2) 

C2=SQRT ( GAMMA*G0*R*TS2) 

MACH2=VX2/C2 

IF (ABS(M20LD-MACH2) .GT. .0001) GOTO 32 
RH02= 1 44 . *PT2/ ( R*TTD ) *R0R2 

C **** Compute Reynolds No Correction 

REFFT=RH02*SPEED*(TURBDIA/12.)**2*PI/(30.*MUT) 

IF (REFFT.GT.4.E6) THEN 

ETAR=1.-(1.-EBASE)*(2.E6/4.E6)**.2 

ELSE 

ETAR=1 . - ( 1 . - EBASE ) * ( 2 . E6/REFFT ) ** . 2 
END IF 

AMAX=PI/4.*(TURBDIA*ETTR)**2*(1 . - .4**2) 

AREA2=FL0W( 10)*SQRT (TTD)/PT2/WTAPT2 

IF (AREA2.GT.AMAX) GO TO 40 

RHUB=SQRT(REX**2-AREA2/PI ) 

HUBDIA=2.*RHUB 
GO TO 50 
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40 ETTR=ETTR+.01 

IF (ETTR.GT. .9) THEN 
ERR0RT= 

& ' RADIAL TURBINE GEOMETRY NOT POSSIBLE; SHROUT/TIP RATIO > 0.9' 
ETATURB=.6 


RETURN 

ELSE 

GO TO 30 
END IF 


50 AREA2=PI*(REX**2-RHUB**2) 
PHI=RHUB/REX 
W2T=SQRT (VX2**2+U2T**2) 

U2H=PHI*U2T 
W2H=SQRT (VX**2+U2H**2) 

IF ( (W2H/W1 ) .LT.l .05) THEN 

WARN I NGT= ' F LOW D I F FUS I ON/S E PARAT I ON 


PREDICTED IN RADIAL TURBINE' 


435 FORMAT (1X,A64) 
ETATURB=.6 


RETURN 
END IF 

C **** Estimate the required running clearances and their contribution 
C **** to stage efficiency. 

CLEAROB=MAX( .02, .01/B) 

ETAC=ETAR*(1 . 0078- . 39*CLEAROB) 

ETAOLD=ETATTS 

ETATTS=ETAC 

C **** Assume the diffuser effectiveness [per NASA TM X-2357] is 0.65. 

MACH3=MACH2/ ARAT 
AREA3=AREA2*ARAT 


M30LD=0. 

c DO WHILE (ABS(M30LD-MACH3).GT. .001) 

52 PT2=PS3/(.65+.35*PS0PT2) 

PS2=PT2*PSOPT2 

ICODE=l 

CALL GASDYN (IC0DE,MACH3,PS0PT3,TS0TT3,V0CT3,R0R3,A0AST3, 
& WTAPT3 , WTAPS3 , QOP3 ) 

PS3=PT3*PS0PT3 

WDOT=WTAPT3*AREA3*PT3/SQRT (TTD) 

M30LD=MACH3 

MACH3=FL0W (10) /WD0T*MACH3 
IF (ABS(M30LD-MACH3) .GT. .001) GOTO 52 

ITER=ITER+1 
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IF (ITER. GT. 200) THEN 

ERRORT=' ITERATION LIMIT EXCEEDED IN RADIAL TURBINE ROUTINE' 

WRITE (61,435) ERRORT 
WRITE (*,435) ERRORT 
ETATURB=.6 

RETURN 
END IF 

C **** Test for convergence of efficiency prediction and diffuser loss. 

IF (ABS( (PS20LD-PS2)/PS2) .GT. .00001) GO TO 10 
IF (ABS( (ETATTS-ETAOLD)/ETAOLD) .GT. .00001) GOTO 10 

TEMP(12)=TTD 

UTIPT=U1 

IF (UTIPT.GT. 1800. ) WARNINGT='TURBINE TIP SPEED HIGH - CREEP/STRES 
&S RUPTURE A CONCERN' 

IF (UTIPT.GT. 2000.) WARN INGT=' TURBINE TIP SPEED GREATER THAN 2000 
&FPS NOT ADVISED' 

TURBSS=NSTURB 

C **** Convert from t-s to t-t overall efficiency 

ETATURB=ETATTS* ( 1 . - ( PS3/PRESS ( 1 0 ) ) ** ( ( GAMMA- 1 )/ GAMMA) )/ 

& ( 1 . - ( PT3/PRESS ( 10) ) ** ( (GAMMA- 1 ) /GAMMA) ) 

ETATURB=MAX (0 . 6 , M IN ( . 98 , ETATURB ) ) 

C **** Compute approximate rotor stress levels in psi, TZM alloy 
RH0TZM=.37 

C **** Approximate centrif. stress based on BRU; thermal ss stress assumed 
C **** to "creep relax". 

SIGMA=.03*UTIPT**2*RH0TZM/ . 29 

C **** Using the rotor bore abs. temperature ratio from BRU analyses 
TMATL=.37*TEMP(10)+.63*TTD 
CALL STRNTH (TMATL, LIFETIME, SIGPV) 

IF (SIGMA. GT. SIGPV) ERRORT=' RADIAL TURBINE OPERATING ABOVE BORE ST 
&RESS LIMIT; RED. TIT OR INC! MW' 

IF (IPRINT.GE.4) THEN 

WRITE (61,100) PRESS (10) ,PS2,PT2,PS3,PT3,NST 
WRITE (61,110) TEMP(IO) ,TS2,TS3,TTD,B,REFFT 
WRITE (61,120) TURBDIA, EXDIA,HUBDIA 
WRITE (61,130) MACH2 , WTAPT2 , MACH3 , WTAPT3 
WRITE (61,140) EPOLY , EBASE , ETAR , ETAC , ETATTS , ETATURB 
END IF 

RETURN 

100 FORMAT (' PRESS ( 10), PS2,PT2,PS3,PT3,NST 
110 FORMAT (' TEMP(IO) ,TS2,TS3,TTD,B,REFFT 
& 2E10.3) 

120 FORMAT (' TURBDIA, EXDIA,HUBDIA 


'/IX , 7F10 . 3 ) 
'/IX , 5F1 0 . 3 , 

'/1X,7F10.3) 
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130 FORMAT (' MACH2,WTAPT2,MACH3,WTAPT3 '/1X.7F10.6) 

140 FORMAT (' EPOLY , EBASE , ETAR, ETAC , ETATTS , ETATURB '/1X,7F10.6) 

END 


SUBROUTINE GASDYN (Icode,M,PSOPT,TSOTT,VOCT,RHOORHO,AOAST, 

& WRTOAPS , WRTOAPT , QOP ) 

C **** GASDYN is cheked-out and final as of 10-06-92 
SDEBUG 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

CHARACTERS 0 GAS (2) 

REAL JCON 

COMMON/ FLUID/ GAS , GAMMA , MOLWT , C P , PRNDTL 
COMMON/CONST/ P I , RU , GO , JCON , RZERO 

**** Icode designates which information is provided and what is to 
**** be calculated: 

Icode=l means Mach No. is specified 
Icode=2 means WT A .5/Ap is specified 

I F ( ICODE . EQ . 2) THEN 
I F (WRTOAPT. LE.O.) RETURN 

M=SQRT ( - 1 . / (GAMMA- 1 . ) +SQRT ( 1 . / (GAMMA- 1 . ) **2+2 . *RU/MOLWT/ 

& (GAMMA* (GAMMA- 1 . )*G0)*WRT0APS**2) ) 

END IF 

PSO PT= ( 1 . + ( GAMMA - 1 . ) / 2 . *M**2 ) ** ( - GAMMA/ ( GAMMA- 1 . ) ) 
TSOTT=l./(l.+(GAMMA-l.)/2.*M**2) 


VOCT=M/SQRT ( 1 . + ( GAMMA- 1 . )/2 . *M**2 ) 

RHOORHO= ( 1 . + ( GAMMA - 1 . ) /2 . *M**2 ) ** ( - 1 . / (GAMMA- 1 . ) ) 
A0AST=l./M*((l.+(GAMMA-l.)/2. *M** 2 ) / ( ( G AMMA+ 1 . ) / 2 . ) ) 

& ** ( ( GAMMA+1 . ) / ( 2 . * (GAMMA- 1 . ) ) ) 

WRTOAPS=SQRT ( GAMMA*GO/ ( RU/MOLWT ) ) *M*SQRT ( 1 . + (GAMMA- 1 . ) /2 . *M**2 ) 
WRTOAPT=SQRT ( GAMMA*GO/ ( RU/MOLWT) ) *M* ( 1 . + (GAMMA- 1 . )/2 . *M**2 ) 

& ** ( - ( GAMMA+ 1 . ) / ( 2 . * ( GAMMA- 1 . ) ) ) 

Q0P=GAMMA/2. *M**2*(l+( GAMMA- 1 . )/2.*M**2)**(-GAMMA/(GAMMA-l . ) ) 

RETURN 

END 


SUBROUTINE RADCOMP 
C **** RADCOMP is cheked-out and final as of 10-06-92 
SDEBUG 


IMPLICIT REAL (A-H) 
IMPLICIT INTEGER (I-J) 
IMPLICIT REAL (K-Z) 
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REAL JCON 


CHARACTER*!!) GAS ( 2 ) , COMPTYPE , TURBTYPE , CLNTTYPE , TVAR( 18) 


CHARACTER*20 GENTYPE, INTTYPE 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , WARN I NGC , 
& WARN INGR, WARN INGG 


COMMON/OPT I M/ VAR ( 1 8 ) , TVAR , I PR I NT 

COMMON/DI AGNOS/ERRORT, ERRORC, ERRORR, ERRORG, ERRORF, WARNINGT, 

& WARNINGC, WARN INGR, WARN INGG 

COMMON/CONF IG/COMPTYPE , TURBTYPE , GENTYPE , INTTYPE , CLNTTYPE 

COMMON/FLU I D/ GAS , GAMMA , MOLWT , CP , PRNDTL 

COMMON/CYCLE/TEMP(17) , PRESS (17) , FLOW (17) , PR(17) ,BETA,COMFLOW, 
& PRC, EFFC,EFFT,EFFR,EFFA,XBLC,XBLT, SPEED, POWER, PWRFCTR, 

& DP0P6,DP0P7,DP0P8,DP0P9,DP0P10,DP0P13,DP0P14,DP0P15, 

& DPOP16,DPOP17,NETSP,GROSSEP,EFFCYCLE, WINDAGE 

COMMON/AERODYN/ ETACOMP , COMPD I A , UT I PC , RADHC , RAD 1 C , 

& RADNC , ANSQC , ANSQCL , COMPSS , I STGC , ETATURB , TURBDIA, UTI PT , 

& RADHT , RADI T , RADNT , ANSQT , ANSQTL, TURBSS , I STGT 

COMMON/CONST/ PI , RU , GO , JCON , RZERO 


c 

**** Nomenclature for Subroutine RADCOMP 

c 

ACR2 

REAL 

Fluid critical sonic velocity at rotor exit, ft/sec 

c 

B 

REAL 

Rotor tip blade height [B-widht], inches 

c 

CDP 

REAL 

Compressor discharge total pressure, psia 

c 

CDT 

REAL 

Compressor discharge total temperature, R 

c 

CLEAROB 

REAL 

Compressor clearance:B-with ratio, dmls 

c 

COMPDIA 

REAL 

Compressor rotor tip diameter, inches 

c 

DTOT 

REAL 

Compressor t-t delta T/T, dmls 

c 

EAD 

REAL 

Compressor uncorrected adiabatic efficiency, dmls 

c 

EPOLY 

REAL 

Comp, uncorrected polytropic efficiency [Balje], dmls 

c 

ERRORC 

CHAR*64 

Compressor design error message 

c 

ETAAD 

REAL 

Compressor adiabatic efficiency w/ Re correction, dmls 

c 

ETACOMP 

REAL 

Compressor adiabatic efficiency w/ all corrections, dmls 

c 

FCW 

REAL 

Compressor work factor [Cu/U], dmls 

c 

HI 

REAL 

Compressor inlet flow enthalpy, BTU/lbm 

c 

H2 

REAL 

Compressor discharge flow enthalpy, BTU/lbm 

c 

ITER 

INTEG 

Iteration counter 

c 

M2STAR 

REAL 

Critical Mach No. at rotor exit, dmls 

c 

MUC 

REAL 

Viscosity at compressor inlet, lbm/ft-sec 

c 

NSC 

REAL 

Compressor inlet specific speed, dmls 

c 

PS2 

REAL 

Rotor exit static pressure, psia 

c 

PT2 

REAL 

Rotor exit total pressure, psia 

c 

PS0PT2 

REAL 

Static:total pressure ratio at rotor exit, dmls 
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c 

Q1 

REAL 

c 

Q2 

REAL 

c 

REC 

REAL 

c 

RGAS 

REAL 

c 

RH01 

REAL 

c 

RH02 

REAL 

c 

TS2 

REAL 

c 

UTIPC 

REAL 

c 

VR2 

REAL 

c 

VU2 

REAL 

c 

V2 

REAL 

c 

WARNINGC 

CHAR*64 

c 

XSS 

REAL 


Rotor inlet volume flow, cu ft/sec 

Rotor discharge volume flow, cu ft/sec 

Compressor Reynods Number, dmls 

Gas constant for working fluid, ft-lbf/lbm-R 

Compressor inlet total fluid density, lbm/cu ft 

Compressor discharge fluid density, lbm/cu ft 

Rotor exit static temperature, R 

Compressor rotor tip speed, ft/sec 

Fluid radial velocity at rotor exit, ft/sec 

Fluid tangential velocity at rotor exit, ft/sec 

Fluid velocity at rotor exit, ft/sec 

Compressor design warning message 

Compressor mean specific speed, rpm/ft A 3/4-sec A l/2 


c ****** INPUTS: PRAT, SPEED, PI, T1 ,COMFLOW,MOLWT 
ITER=0 

WARNINGC=' ' 

ERRORC=' ' 

MUC=VI SCOS (TEMP ( 1 ) ) 

RGAS=RU/MOLWT 

FCW=.7 

CDP=PRESS(1)*PRC 
PSOPT3= . 98 
PT3=PRESS(4) 

ETACOMP=.85 

ETACTS=.85 


10 DTOT=( (PRC*PS0PT3)**( (GAMMA- 1 . )/GAMMA) -1 . )/ETACTS 

COMPDIA=SQRT(DTOT*TEMP(1)/FCW*GO*JCON*CP)/(PI*SPEED/12./60.) 

CDT= ( ( ( PRC*PS0PT3 )** ( (GAMMA- 1 . )/GAMMA) - 1 . )/ETACTS+l . ) *TEMP ( 1 ) 


H1=TEMP(1) * CP 
H2=CDT * CP 


Q1=FL0W ( 1 )*TEMP( 1 )*RU/PRESS( 1 )/M0LWT/144 . 
Q2=FL0W(1)*TEMP(4)*RU/PRESS(4)/M0LWT/144. 
XSS=SPEED*(Q1*Q2)**. 25/(788. 16*(H2-H1) )**. 75 
NSC=PI/30.*SPEED*SQRT(Q1)/(G0*JC0N*(H2-H1)*ETACTS) 


** 


.75 


**** Compute radial compressor uncorrected polytropic efficiency per Balje 

**** curve fit of data taken from: 

Balje, 0. J., "Turbomachines: A Guide to Design, Selection, 
and Theory", John Wiley and Sons, Inc., New York, 1981. 


EP0LY=.38186+.40860*(AL0G10(NSC)+1 . )+l . 1734*(ALOG10(NSC)+1 . )**2- 
& 1 .5643* (AL0G10 (NSC) +1.)**3+.47413*(AL0G10(NSC)+1 . )**4 


YC= ( PRC*PS0PT3 ) ** ( (GAMMA- 1 . ) /GAMMA) - 1 . 

ZC=ALOG10( ( PRC*PS0PT3 ) ** ( ( GAMMA- 1 . )/GAMMA) )/EP0LY 
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EAD=YC/(10.**ZC-1 . ) 

C **** Correct Compressor Efficiency for Reynolds No. based on ASME 
C **** Code PTC- 10 

RH01=PRESS(1)*144./(RGAS*TEMP(1) ) 

REC=RH01 *S PEED* ( COMPDIA/ 12.) **2*P 1/ ( 30 . *MUC ) 

IF (REC.LT.4.E6) THEN 

ETAAD= 1 . + ( EAD- 1 . ) * ( 2 . E6/REC ) ** . 1 
ELSE 

ETAAD=l.+(EAD-l.)*(2.E6/4.E6)**.l 
END IF 

C **** Correct compressor efficiency for clearance losses 
C **** Assume .7 pressure recovery in the compressor diffuser 

UTIPC=COMPDIA/12.*PI*SPEED/60. 

VU2=.7*UTIPC 

C Assume Alpha2 = 75 deg 

VR2=VU2/TAN(75.*PI/180. ) 

ACR2=SQRT ( 2 . * GAMMA/ ( GAMMA+1 . ) *G0*RGAS*CDT ) 

V2=VU2/S IN ( 75 . *P 1/180 . ) 

M2STAR=V2/ACR2 

PS0PT2=(1 . - (GAMMA- 1 . )/ (GAMMA+1 . )*M2STAR**2)**(GAMMA/(GAMMA+1 . ) ) 
PT2=CDP/ ( . 7* ( 1 . - PS0PT2 ) +PS0PT2 ) 

PS2=PT2*PSOPT2 

TS2=CDT*( 1 . - (GAMMA- 1 . )/ (GAMMA+1 . )*M2STAR**2) 
RH02=PS2*144./(RGAS*TS2) 

B=144.*FL0W(1)/(RH02*VR2*PI*C0MPDIA) 

CLEAR0B=MAX( .02, . 01/B) 

C **** Assume a 3:1 ratio of M2STAR/M3STAR 

PS0PT3 = ( 1 . - ( GAMMA - 1 . ) / ( GAMMA+ 1 . ) * ( M2 STAR/3 . ) **2 ) ** ( GAMMA/ 

& (GAMMA+1.)) 


WRITE (61, 234)UTIPC,VU2,VR2,ACR2,V2,M2STAR,PSOPT2,PT2,PS2,TS2,RH02, 

& B,CLEAR0B,FL0W(1) 

234 FORMAT ( ' UT I PC , VU2 , VR2 , ACR2 , V2 , M2STAR , PSOPT2 , PT2 , PS2 , TS2 , RH02 , B , C L 
&EAR0B,FL0W(1)'/3(1X,5E12.5/)) 

WRITE ( 6 1 , 345 ) NSC , EPOLY , EAD , REC , ETAAD , PS0PT3 
345 FORMAT (' NSC, EPOLY, EAD, REC, ETAAD, ETACTS, PS0PT3'2(/1X, 5E12 . 5) ) 

**** Compute efficiency correction for clearance loss per Balje 
**** Curve fit of data taken from: 

Balje, 0. J., "Turbomachines: A Guide to Design, Selection, 
and Theory", John Wiley and Sons, Inc., New York, 1981. 

ETACTS=ETAAD*(1 .01848- .924*CLEAR0B) 

IF (ABS(ETACTS - ECOLD) .LT. .00001) THEN 
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UTIPC=PI*C0MPDIA/12.*SPEED/60. 


C **** Compressor tip speed limit per GFSD experience 

IF (UTIPC.GT. 1800. ) WARNINGS' RADIAL COMPRESSOR TIP SPEED EXCEEDS 
&1800 FPS LIMIT' 

C **** Convert efficiency to total -to-total 

ETACOMP=ETACTS* ( PRC** ( ( GAMMA- 1 . ) /GAMMA) - 1 . )/ ( ( PRC*PS0PT3 ) ** 

& ( (GAMMA- l.)/GAMMA)-l.) 

ETACOMP=MAX (0.6,MIN(.95,ET ACOMP ) ) 

RETURN 

ELSE 

ECOLD = ETACTS 
ITER= ITER+1 
IF (ITER. GT. 50) THEN 

ERRORC=' ITERTION LIMIT EXCEEDED IN RADIAL COMPRESSOR ROUTINE' 

ETAC0MP=.6 

RETURN 

END IF 

GOTO 10 

END IF 

END 

SUBROUTINE AXCOMP 

C **** AXCOMP is cheked-out and final as of 10-06-92 
$DEBUG 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JCON 

CHARACTERS GAS ( 2 ) , COMPTYPE , TURBTY PE , CLNTTYPE , TVAR (18) 
CHARACTER*20 GENTYPE, INTTYPE 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , WARN INGC , 
& WARNINGR,WARNINGG 


COMMON /0PTIM/VAR(18) ,TVAR, IPRINT 

COMMON/DI AGNOS/ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , 

& WARN INGC, WARN I NGR, WARN I NGG 

COMMON/CONF I G/COMPTYPE , TURBTYPE , GENTYPE , INTTYPE , CLNTTY PE 

COMMON/F LU I D/ GAS , GAMMA , MOLWT , CP , PRNDTL 

COMMON/ALTERNTR/DGENRTR, DGENSTR , LGENTOT , MASSGEN , T I PSPDG , COE , 

& ETAGEN, COOLING, WCLNT, VOLTAGE , KVA, GENASP,TINCLNT,TOUTCLNT, 

& CPCLNT, LIFETIME 

C0MM0N/CYCLE/TEMP(17) , PRESS (17), FL0W(17) ,PR(17) ,BETA,COMFLOW, 
& PRC , EFFC , EFFT , EFFR, EFFA, XBLC , XBLT , SPEED, POWER, PWRFCTR, 

& DPOP6,DPOP7,DPOP8,DPOP9,DPOP10,DPOP13,DPOP14,DPOP15, 

& DP0P16,DP0P17,NETSP,GR0SSEP,EFFCYCLE, WINDAGE 
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COMMON/ A E ROD Y N/ ET ACOMP , COMPD I A , UT I PC , RADHC , RAD1C , 

& RADNC , ANSQC , ANSQCL , COMPSS , I STGC , ETATURB , TURBDIA, UT I PT , 
& RADHT , RADI T , RADNT , ANSQT , ANSQTL , TURBSS , I STGT 

COMMON/CONST/ PI , RU , GO , JCON , RZERO 

C **** Nomenclature for SUBROUTINE AXCOMP 


c 

A1 

REAL 

c 

A2 

REAL 

c 

ACR1 

REAL 

c 

ACR2 

REAL 

c 

ANSQC 

REAL 

c 

ANSQCL 

REAL 

c 

Cl 

REAL 

c 

CR 

REAL 

c 

DELHACT 

REAL 

c 

DH IDEAL 

REAL 

c 

ERRORC 

CHAR*64 

c 

ETACOMP 

REAL 

c 

ETACTS 

REAL 

c 

ETAOLD 

REAL 

c 

ETAPOLY 

REAL 

c 

I STGC 

INTEG 

c 

ITER 

INTEG 

c 

MREL 

REAL 

c 

NS 

REAL 

c 

PS1 

REAL 

c 

PT1 

REAL 

c 

PS2 

REAL 

c 

PT2 

REAL 

c 

PS3 

REAL 

c 

PS30LD 

REAL 

c 

PT3 

REAL 

c 

PSOPT1 

REAL 

c 

PSOPT2 

REAL 

c 

PSOPT3 

REAL 

c 

Q1 

REAL 

c 

QOPT2 

REAL 

c 

RAD 1C 

REAL 

c 

RADHC 

REAL 

c 

RADNC 

REAL 

c 

REC 

REAL 

c 

RH01 

REAL 

c 

RH02 

REAL 

c 

SOH 

REAL 

c 

TS1 

REAL 

c 

TT1 

REAL 

c 

TS2 

REAL 

c 

TT2 

REAL 

c 

UHUBC 

REAL 

c 

V0ACR1 

REAL 


Flow area at compressor inlet, sq in 

Flow area at last stage exit, sq in 

Compressor inlet critical velocity, ft/sec 

Compressor last stage exit critical velocity, ft/sec 

Compressor flow area x speed A 2 parameter, sq in-rpm A 2 

Compressor AN A 2 limit, sq in-rpm A 2 

Sonic voloocity at compressor inlet, ft/sec 

Blade tip clearance, inches 

Actual compressor enthalpy rise, BTU/lbm 

Ideal compressor enthalpy rise, BTU/lbm 

Compressor diagnostic error message 

Compressor t-t adiabatic efficiency, overall, dmls 

Compressor t-s adiabatic efficiency [various], dmls 

Previous t-s adiabatic efficiency, dmls 

Overall compressor polytropic efficiency, dmls 

Compressor stage count 

Iteration counter 

Blade relative Mach Number, dmls 

Compressor specific speed, dmls 

Compressor inlet static pressure, psia 

Compressor inlet total pressure, psia 

Compressor last stage exit static pressure, psia 

Compressor last stage exit total pressure, psia 

Compressor discharge static pressure, psia 

Previous value of PS3, psia 

Compressor discharge total pressure, psia 

Static:total pressure ratio at compressor inlet, dmls 

Static:total pressure ratio at last stage exit, dmls 

Static:total pressure ratio at compressor discharge, dmls 

Compressor inlet volume flow, cu ft/sec 

Last stage exit dynamic head fraction of PT2, dmls 

Blade tip radius at compressor inlet, inches 

Hub radius [flowpath inside radius], inches 

Blade tip radius at compressor at last stage, inches 

Compressor Reynolds Number, dmls 

Compressor inlet density, lbm/cu ft 

Compressor last stage exit density, lbm/cu ft 

Tip clearance to blade height ratio, dmls 

Compressor inlet static temperature, deg R 

Compressor inlet total temperature, deg R 

Compressor last stage exit static temperature, deg R 

Compressor last stage exit total temperature, deg R 

Hub velocity, ft/sec 

Inlet velocity:critical velocity ratio, dmls 
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C VX REAL 

C WARNINGC CHAR*64 

C WDOT REAL 

C WT1 REAL 


Axial velocity, ft/sec 

Compressor daignostic warning message 

Gas flowrate, Ibm/sec 

Blade relative velocity at compressor inlet, ft/sec 


C ****** INPUTS: PRAT, SPEED, PT1,TT1, FLOW, MOLWT 

PT1=PRESS(1) 

PS0PT1=.98 

PS1=PT1*PS0PT1 

TT1=TEMP(1) 

TS1=TT1*PS0PT1**( (GAMMA- 1)/GAMMA) 

PT3=PT1*PRC 

PT2=PT3 

PSOPT2=.97 

PS2=PT2*PSOPT2 

PSOPT3=.99 

PS3=PT3*PSOPT3 

WDOT=FLOW(l) 

ETAC0MP=.85 

ETACTS=.85 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


**** SUBROUTINE INPUTS 

**** PT1- INLET TOTAL PRESSURE, PSIA 

**** TT1- INLET TOTAL TEMPERATURE, R 

**** WDOT -MASS FLOWRATE, LBM/S 

**** N-TURBINE SPEED, RPM 

**** PS3-DIFFUSER EXIT STATIC PRESSURE, PSIA 

**** GAMMA-RATIO OF SPECIFIC HEATS 

**** RGAS- WORKING FLUID GAS CONSTANT, FT-LBF/LBM-R 

**** CP-WORKING FLUID SPECIFIC HEAT, BTU/LBM-R 

**** CR-CLEARANCE RATIO 


RGAS=RU/MOLWT 

C **** Start calculations assuming a 1 stage compressor 
ISTGC=1 
ANSQC=0 

RH01=PT1*144./RGAS/TT1 

Q1=WD0T/RH01 

ACR1=SQRT(2.*GAMMA/(GAMMA+1 . )*GO*RGAS*TTl) 

5 ITER=0 
ETACTS=.85 

10 DH I D E A L=TT 1 *C P* ( ( PS3/ PT 1 ) ** ( ( GAMMA - 1 . ) /GAMMA ) - 1 . ) 
DELHACT=DHIDEAL/ETACTS 
ERRORC=' ' 

WARNINGC=' ' 

C **** Calculate 1st Stage hub stator exit Mach Number (Sta. la) 
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UHUBC=SQRT(GO*JCON*DELHACT/( .45*FL0AT ( ISTGC) )) 

VX=.55*UHUBC 

V0ACR1=VX/ACR1 

C **** Compute inlet gometry 

RH01=PT1*144./RGAS/TT1*(1.-(GAMMA-1.)/(GAMMA+1.)*(V0ACR1)**2) 

& **( 1./ (GAMMA- 1.)) 

A1=WD0T/RH01/VX*144 . 

C **** Compute hub radius 

RADHC=12.*UHUBC/(SPEED*PI/30) 

RAD1C=SQRT (A1/PI+RADHC**2) 

C **** Test for RADHC/RTIP < .6, If so, Load error message 

IF ((RADHC/RAD1C) . LT .0.6) ERRORC= ' RADHC/RAD1C < .6' 

C **** Compute relative Mach Number at blade tip 

TS 1 =TT 1 * ( 1 . - ( GAMMA - 1 . ) / ( GAMMA+ 1 . )*V0ACR1**2) 

C 1 =SQRT ( GAMMA*GO*RGAS*TS 1 ) 

WT1=SQRT(VX**2+(UHUBC*RAD1C/RADHC)**2) 

MREL=WT1/C1 

C **** If MREL > .8 load error message 
IF (MREL. GT. 0.8) ERRORC='MREL > .8' 

C **** Compute last stage exit conditions 
TT2=TT1+DELHACT/CP 

ACR2=SQRT(2 .*GAMMA/(GAMMA+1 . )*G0*RGAS*TT2) 

C **** Compute exit static: total pressure ratio 

PSOPT2 = ( 1 . - ( GAMMA - 1 . ) / ( GAMMA+ 1 . ) * ( VX/AC R2 ) **2 ) ** ( GAMMA/ 

& (GAMMA- 1.)) 

C **** Assume 2:1 diffusion from stator exit to duct 

PSOPT3=PSOPT2** . 25 

PS30LD=PS3 

PS3=PT3*PS0PT3 

C **** Compute exit kinetic energy 
Q0PT2=1 . -PS0PT2 

C **** Compute rotor exit pressures based on .4 diffuser coefficient of 
C **** press recovery 
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PT2=PS3/ ( PS0PT2+ . 4*QOPT2) 

PS20LD=PS2 

PS2=PT2*PSOPT2 

C **** Evaluate last stage geometry and exit velocity 

RH02=144.*PT2/RGAS/TT2*(1 . - (GAMMA- 1 . )/ (GAMMA+1 . )*(VX/ACR2)**2) 

& **(1. /(GAMMA-1.)) 

C **** Compute exit flow area 
A2=WD0T/RH02/VX*144. 

C **** Compute tip radius at compressor exit 
RADNC=SQRT(A2/PI+RADHC**2) 

c **** Test f 0r radHC/RADNC > .95, If so, load error message 

IF ((RADHC/RADNC) .GT. 0.95) ERR0RC=' RADHC/RADNC > .95' 

C **** Estimate Compressor Efficiencies - Polyropic value god for specific 
C **** speed range from 1.8 to 3.5 

NS=SPEED*PI/30 . *SQRT ( WD0T/RH01 )/ ( GO* JC0N*DH I DEAL/ F LOAT ( ISTGC ) ) ** . 75 
ETAOLD=ETACTS 


**** Compute axial turbine uncorrected polytropic efficiency 
**** Curve fit of data taken from: 

Balje, 0. J., "Turbomachines: A Guide to Design, Selection, 
and Theory", John Wiley and Sons, Inc., New York, 1981. 
and expanded based on GFSD analyses done in support of claasified 
programs. 

ETAPOLY=.803+.1165*DLOG(NS)-.05123*DLOG(NS)**2-.01764*DL0G(NS)**3+ 

& . 00503*DL0G(NS)**4 

q **** Compute uncorrected compressor adiabatic efficiency 

ETACTS= ( ( PS3/ PT 1 ) ** ( ( GAMMA- 1 . ) /GAMMA ) - 1 . )/ ( ( PS3/ PT 1 ) ** 

& ( (GAMMA- 1 . )/ ( ETAPOLY*GAMMA) ) - 1 . ) 

ETACTS=MIN(ETACTS, .95) 

ETACTS=MAX(ETACTS, .6) 

ETA1=ETACTS „ rcn 

C **** Compute efficiency correction due to tip clearance based on GFSD 
C **** analyses of compressors for classified programs. 

CR=MAX(.010,.003*RADHC) 

S0H=CR/ ( ( RADI C+RADNC )/2 . - RADHC ) 

ETACTS= ETACTS* ( 1 . - 1 0 . *S0H** 1.5) 

ETA2=ETACTS 
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C **** Correct Compressor Efficiency for Reynolds No. based on ASME 
C **** Code PTC- 10 

RH01=PRESS(1)*144./(RGAS*TEMP(1 ) ) 

REC=RH01*SPEED*(2.*RAD1C/12. )**2*PI/(30.*VISCOS(TEMP(1) ) ) 

IF (REC.LT.4.E6) THEN 

ETACTS=1 .+(ETACTS-1 . )*(2. E6/REC)**. 1 

ELSE 

ETACTS= 1 . + ( ETACTS - 1 . ) * ( 2 . E6/4 . E6 ) ** . 1 
END IF 
ETA3= ETACTS 

ETACTS=MIN(ETACTS, .95) 

ETACTS=MAX( ETACTS,. 6) 

IF (ISTGC.GE.16) THEN 
ERR0RC= 

& 'AXIAL COMPRESSOR SOLUTION NOT POSSIBLE WITH LESS THAN 16 STAGES' 
ETAC0MP=.6 
RETURN 
END IF 
ITER=ITER+1 
IF (ITER. GE. 50) THEN 
ISTGC=ISTGC+1 
GO TO 5 
ELSE 

IF ( I PRINT . GE . 5) THEN 

WRITE (61,100) DH IDEAL , DELHACT , UHUBC , VX , VOACR1 , RHOl 
WRITE (61,110) A1,RADHC,RAD1C,TS1,C1,WT1 
WRITE (61,120) MREL , TT2 , ACR2 , PSOPT2 , PSOPT3 , PS3 
WRITE (61,130) QOPT2 , PT2 , PS20LD, PS2 , RH02 
WRITE (61,140) A2 , RADNC , NS , ETAOLD , ETAPOLY , ETA1 
WRITE (61,150) CR, SOH , ETA2 , RHOl , REC , ETA3 

END IF 

I F (ABS( ETACTS- ETAOLD ).GT. 0.0001) GO TO 10 
IF(ABS((PS3-PS30LD)/PS3).GT. 0.001) GO TO 10 
END IF 

ANSQC=A1*SPEED**2 

C **** Compute approximate blade root stress levels in psi, Ti alloy 
RHOTI=. 164 

SIGMA=PI/1800./386.*RHOTI*ANSQC 

SIGPV=30000. 

ANSQCL=SIGPV/SIGMA*ANSQC 
IF (ANSQC.GT.ANSQCL) ERRORC= 

& 'AXIAL COMPRESSOR OPERATING ABOVE A*N A 2 LIMIT' 

ETACOMP= ETACTS* ( ( PT3/ PT 1 ) ** ( ( GAMMA- 1 . ) /GAMMA ) - 1 . ) / ( ( PS3/ PT 1 ) ** 

& ( (GAMMA- l.)/GAMMA)-l.) 

IF (ERRORC.EQ. ' ') THEN 
ETAC0MP=MAX(0.6,MIN( .95, ETACOMP) ) 
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UTIPC=2.*RADlC/12.*PI*SPEED/60. 

HMIN=RADNC-RADHC 

IF (HMIN.LT.0.5) WARNINGC='AXIAL COMPRESSOR BLADE HEIGHT < .5 IN. 

RETURN 

END IF 

20 ISTGC=ISTGC+1 
GO TO 5 


100 

no 

120 

130 

140 

150 


FORMAT (' DHIDEAL,DELHACT,UHUBC,VX,V0ACR1,RH01'/1X,6E12.5) 
FORMAT (' A1,RADHC,RAD1C,TS1,C1,WT171X,6E12.5) 

FORMAT (' MREL ,TT2 , ACR2 , PS0PT2 , PS0PT3, PS3 '/1X»6E12 . 5) 
FORMAT (' Q0PT2,PT2,PS20LD,PS2,RH0271X,6E12.5) 

FORMAT (' A2 , RADNC, NS, ETAOLD, ETAPOLY , ETA1 71X,6E12 . 5) 
FORMAT (' CR,S0H,ETA2,RH01,REC,ETA371X,6E12.5) 


END 


SUBROUTINE AXTURB 

C **** AXTURB is cheked-out and final as of 10-06-92 
$DEBUG 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 


REAL JCON 

CHARACTER*^ GAS(2) ,C0MPTYPE,TURBTYPE,CLNTTYPE,TVAR(18) 
CHARACTER*20 GENTYPE, INTTYPE 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN I NGT , WARN I NGC , 
& WARNINGR,WARNINGG 

COMMON/OPT I M/ VAR ( 1 8 ) , TVAR , IPRINT 

COMMON/DI AGNOS/ERRORT, ERRORC, ERRORR, ERRORG, ERRORF, WARNINGT, 

& WARN I NGC , WARN I NGR , WARN I NGG 

COMMON/ FLUID/ GAS , GAMMA , MOLWT , C P , PRNDTL 
COMMON/AERODYN/ ETACOMP , COMPDIA, UT I PC , RADHC , RAD1C , 

& RADNC, ANSQC,ANSQCL,COMPSS,ISTGC,ETATURB,TURBDIA,UTIPT, 

& RADHT , RAD1T , RADNT , ANSQT , ANSQTL , TURBSS , ISTGT 

COMMON/ALTERNTR/DGENRTR, DGENSTR, LGENTOT,MASSGEN ,TI PSPDG , COE , 

& ETAGEN , COOL I NG , WCLNT , VOLTAGE , KVA , GENASP , TINCLNT , TOUTCLNT , 

& CPCLNT, LIFETIME 

COMMON/CONF I G/COMPTYPE , TURBTYPE , GENTYPE , INTTYPE , CLNTTYPE 
COMMON/C YCLE/TEMP ( 17), PRESS ( 1 7 ) , FLOW ( 1 7 ) , PR ( 1 7) , BETA , COMFLOW , 

& PRC , EFFC , EFFT , EFFR, EFFA , XBLC , XBLT , SPEED, POWER, PWRFCTR, 

& DPOP6,DPOP7,DPOP8,DPOP9,DPOP10,DPOP13,DPOP14,DPOP15, 

& DP0P16,DP0P17,NETSP,GR0SSEP,EFFCYCLE, WINDAGE 
COMMON/CONST/ PI , RU , GO , JCON , RZERO 

C **** SUBROUTINE INPUTS 

c **** PT1- INLET TOTAL PRESSURE, PSIA 
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0 **** 
0 **** 

Q **** 
0 'k'k'kic 

0 **** 
0 **** 
Q **** 
0 **** 


C A1A 
C ACR1 
C ACR2 
C A2 
C ANSQT 
C ANSQTL 
C CR1 
C DELHACT 
C DHIDEAL 
C DELISTG 
C ETAPOLY 
C ERRORT 
C ETA1 
C ETA2 
C ETA3 
C ETAOLS 
C ETATTS 
C ETATURB 

l L. 

C ISTGT 
C ITER 
C LIFETIME 
C MUT 
C NS 
C PT1 
C PS2 
C PS20LD 
C PT2 
C PS3 
C PT3 
C PS2 
C PT2 
C PSOPT2 
C PSOPT3 
C Q2 
C QOPT2 
C RAD1T 
C RADHT 
C RADNT 
C REFFT 


TT1- INLET TOTAL TEMPERATURE, R 

WDOT-MASS FLOWRATE, LBM/S 

N-TURBINE SPEED, RPM 

PS3-DIFFUSER EXIT STATIC PRESSURE, PSIA 

GAMMA-RATIO OF SPECIFIC HEATS 

RGAS-WORKING FLUID GAS CONSTANT, FT-LBF/LBM-R 

CP-WORKING FLUID SPECIFIC HEAT, BTU/LBM-R 

CR-CLEARANCE RATIO 


REAL Required flow area at turbine inlet, sq in 

REAL Turbine inlet critical sonic velocity, ft/sec 

REAL Turbine rotor exit critical sonic velocity, ft/sec 

REAL Required flow area at last stage exit, sq in 

REAL Flow area times speed squared parameter, sq in-rpm A 2 

REAL Current AN A 2 limit for turbine, sq in-rpm A 2 

REAL Turbine tip clearance, inches 

REAL Actual delta enthalpy across turbine, BTU/lbm 

REAL Isentropic delta enthalpy across turbine, BTU/lbm 

REAL Indicated change in stage count used during sizing 

REAL Polytropic efficiency from Balje reference, dmls 

CHAR*64 Turbine design error message 

REAL Turbine t-s ad. base efficiency, dmls 

REAL Turbine t-s ad. efficiency after clearance corr. dmls 

REAL Turbine t-s ad. efficiency after Re No. corr., dmls 

REAL Previous turbine t-s ad. overall efficiency, dmls 

REAL Turbine t-s adiabatic efficiency [subject to corrections] 

REAL Turbine t-t ad. efficiency overall, dmls 

REAL Blade height, inches 

REAL Lower limit on blade height, inches 

REAL Turbine stage count, dmls 

INTEG Iteration counter 

REAL Design lifetime, years 

REAL Turbine average fluid viscosity, lbm/ft-sec 

REAL Turbine specific speed [Balje form], dmls 

REAL Turbine inlet total pressure, psia 

REAL Turbine last stage exit static pressure, psia 

REAL Previous turbine last stage exit static pressure, psia 

REAL Turbine last stage exit total pressure, psia 

REAL Turbine diffuser discharge static pressure, psia 

REAL Turbine diffuser discharge total pressure, psia 

REAL Last stage exit static pressure, psia 

REAL Turbine last stage discharge total pressure, psia 

REAL Static:total pressure ratio at last stage exit, dmls 

REAL Static:total pressure ratio at diffuser exit, dmls 

REAL Turbine rotor discharge volume flow, cu ft/sec 

REAL Turb. exit dynamic pressure:total pressure ratio, dmls 

REAL First stage inlet flowpath outer radius, inches 

REAL Flowpath inner [hub] radius, inches 

REAL Last stage exit flowpath outer radius, inches 

REAL Turbine Reynolds Number, dmls 
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C RGAS REAL 

C RH01 REAL 

C RH01A REAL 

C RH02 REAL 

C RH03 REAL 

C RHOTZM REAL 

C SO REAL 

C SIGMA REAL 

C SIGPV REAL 

C SOSO REAL 

C TT1 REAL 

C TT3 REAL 

C TS3 REAL 

C TT2 REAL 

C TMATL REAL 

C UHUBT REAL 

C UTIPT REAL 

C VOACR1A REAL 

C VU1A REAL 

C VX REAL 

C WARNINGT CHAR*64 

C WDOT REAL 


Working fluid gas constant, ft-lbf/lbm-R 

First stage inlet fluid total density, lbm/cu ft 

First stage inlet fluid density, lbm/cu ft 

Static density at last stageexit, lbm/cu ft 

Static density at turbine diffuser exit, lbm/cu ft 

Material density of TZM alloy, lbm/cu in 

Reference tip clearance [= 2% blade height], inches 

Estimated blade root stree level, psi 

Allowable blade root stree level, psi 

Clearance/reference clearance ratio, dmls 

Turbine inlet total temperature, R 

Turbine discharge total temperature, R 

Turbine discharge static temperature, R 

Turbine exit total temperature, R 

Temperature of hottest blade root material, deg R 

Turbine rotor hub velocity, ft/sec 

Rotor tips speed, ft/sec 

First stage rotor inlet absoluste Crit Vel Ratio, dmls 
Tangential velocity at first stage rotor inlet, ft/sec 
Meridinal velocity at first stage rotor inlet, ft/sec 
Turbine design warning message 
Turbine stage fluid flowrate, lbm/sec 


C **** ESTIMAT STAGE COUNT BASED ON HUB SPEED OF 1500 FT/S AND WORK FACTOR 
C **** OF 1.8 AND INITIAL GUESS OF .90 EFFICIENCY 

RGAS=RU/MOLWT 

DELISTG=0. 

PT1=PRESS(10) 

TT1=TEMP( 10) 

WD0T=FL0W(10) 

PT3=PRESS(12) 

PS3=PT3*.99 

PT2=PT3*1 .02 

PSOPT2=.97 

PS2=PT2*PSOPT2 

ETATURB=.90 

ETATTS=.90 

ITER=0 


10 CONTINUE 
ERR0RT=' ' 

WARNINGT=' ' 

DELHACT=ETATTS*TT1*CP*( 1 . - (PS3/PT1)**( (GAMMA- 1 . ) /GAMMA) ) 


DHIDEAL=DELHACT/ETATTS 
TT2=TT 1 - DH I DEAL*ETATTS/C P 
TS2=TT2*PSOPT2**( (GAMMA- 1 . )/ GAMMA) 


TT3=TT2 

TS3=TT3*PS0PT3**( (GAMMA- 1 . J/GAMMA) 
RH02=PS2*144 ./RGAS/TS2 
Q2=ABS ( WD0T/RH02 ) 
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IF (ITER. LT. 35) ISTGT=INT(G0*JCON*DHIDEAL/(SPEED*PI/3O.*SQRT(Q2)/ 
& .55)**1 .33333+DELISTG+l . ) 

IF (ISTGT.LE. 1) ISTGT=1 

C **** CALCULATE 1st STAGE HUB STATOR EXIT MACH NUMBER (STA. la) 

ACR1=SQRT( 2. *GAMMA/( GAMMA+1 . )*GO*RGAS*TTl) 

UHUBT=SQRT (GO*JCON*DELHACT/(l .8*FL0AT ( ISTGT) ) ) 

C **** STATOR EXIT TANGENTIAL VELOCITY 

VU1A=1.8*UHUBT 

C **** ASSUME STATOR ANGLE OF 72 DEG 
VOACR1A=VU1A/SIN(72*PI/180)/ACR1 
C **** FIRST STAGE GEOMETRY 
VX=VU1A/TAN(72*P 1/180) 

RHO 1A=PT 1*144. /RGAS/TT1*(1 . - (GAMMA-1 . )/(GAMMA+l . )*(V0ACR1A)**2) 

& **(1. /(GAMMA-1.)) 

A1A=WD0T/RH01A/VX*144 . 

RADHT=UHUBT/ ( SPEED* ( P 1/30 . ) ) * 1 2 . 

RAD1T=SQRT ( A1 A/ P I +RADHT**2) 

C **** TEST IF RADHT/RAD1T > .9, IF SO INCREASE ISTGT 

IF (RADHT/RAD1T.GT.0.9) THEN 

DELISTG=DELISTG+1 

ERRORT= ' RADHT/RAD 1 T > 0.90' 

END IF 

C **** COMPUTE EXIT TEMPERATURE 
TT2=TT1 -DELHACT/CP 

ACR2=SQRT ( 2 . * GAMMA/ ( GAMMA+1 . ) *G0*RGAS*TT2 ) 

C **** COMPUTE EXIT STATIC:TOTAL PRESSURE RATIO 

TS0TT2= ( 1 . - ( GAMMA - 1 . ) / ( GAMMA+1 . ) * ( VX/ACR2 ) **2 ) 

PSOPT2=TSOTT2** ( GAMMA/ ( GAMMA- 1 . ) ) 

C **** COMPUTE EXIT KINETIC ENERGY 

Q0PT2=1 . -PS0PT2 

C **** COMPUTE ROTOR EXIT PRESSURE BASED ON .4 DIFFUSER CPR 

PS3=PT 2* ( PSOPT 2+ . 4*QOPT2 ) 

PS0PT3=PS3/PT3 

C **** EVALUATE LAST STAGE GEOMETRY 
C **** EXIT VELOCITY 
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c 

c 


RH02=1 44 . *PT2/RGAS/TT2* ( 1 . - (GAMMA- 1 . )/ (GAMMA+1 . )* ( VX/ACR2 ) **2 ) 
& **( 1./ (GAMMA- 1.)) 

RH02=144 . *PS2/RGAS/TS2 


C **** EXIT AREA 

A2=WD0T/RH02/VX*144 . 

C **** TIP RADIUS 

RADNT=SQRT ( A2/P I+RADHT**2 ) 

C **** IF RADHT/RADNT < . 6 , DECREASE STAGE COUNT 

IF (( RADHT/RADNT ).LT. 0.6) THEN 
DELISTG=DELISTG-1 . 

ERRORT=' RADHT/RADNT < 0.60' 

END IF 

C **** EFFICIENCY ESTIMATES - BALJE'S Ns,t CORRELATION 

PT2=PT3+. 156*PT2*QOPT2 
PS20LD=PS2 

C **** COMPUTE ROTOR EXIT STATIC PRESSURE 
PS2=PT2*PS0PT2 

TS3=TT2* ( PS3/PT3 ) **( ( GAMMA- 1 . ) /GAMMA ) 

RH03=PS3*144 ./RGAS/TS3 

NS=SPEED*PI/30.*SQRT(WDOT/RH03)/(GO*JCON*DHIDEAL/DFLOAT(ISTGT) ) 
j **75 

ETAOLD=ETATTS 

**** Compute axial turbine uncorrected polytropic efficiency 
**** curve fit of data taken from: 

Balje, 0. J., "Turbomachines: A Guide to Design, Selection, 
and Theory", John Wiley and Sons, Inc., New York, 1981. 


ETAPOLY= . 86869509- . 055979 102*DL0G (NS ) - . 04902661*DL0G ( NS ) **2+ 
& .0022114298*DLOG(NS)**3 

ETATTS= ( 1 . - ( PS3/ PT1 ) ** ( ETAPOLY* ( ( GAMMA- 1 . )/ GAMMA) ) )/ ( 1 . - 
& ( PS3/PT1 ) ** ( ( GAMMA - 1 . ) /GAMMA ) ) 

ETA1=ETATTS 

C **** CORRECTION FOR TIP CLEARANCE 
CR1=MAX( . 003*RADHT , . 01 ) 

H=RAD1T-RADHT 

S0=.02*H 

SOSO=CR1/SO 
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IF (SOSO.GT. 1 . ) THEN 

ETATTS=ETATTS*(1 .0108- .01*SOSO-8.33E-4*SOSO**2) 

ELSE 

ETATTS=ETATTS 
END IF 
ETA2=ETATTS 

C **** Correct Turbine Efficiency for Reynolds No. based on ASME 
C **** Code PTC- 10 

MUT=AVVISC(TEMP(10) , TEMP (12)) 

RH01=PT1*144./(RGAS*TEMP(10) ) 
REFFT=RH01*SPEED*(2.*RAD1T/12.)**2*PI/(30.*MUT) 

IF (REFFT.LT. 4. E6) THEN 

ETATTS= 1 . + ( ETATTS - 1 . ) * ( 2 . E6/RE F FT ) ** . 2 

ELSE 

ETATTS= 1 . + ( ETATTS - 1 . ) * ( 2 . E6/4 . E6 ) ** . 2 
END IF 
ETA3= ETATTS 


IF (IPRINT.GE.4) THEN 

WRITE (61,100) DELHACT , DH IDEAL , TT2 , TT3 , RH02 , Q2 
WRITE (61,110) ACR1 ,UHUBT,VU1A, VOACR1A, VX,RH01A 
WRITE (61,120) A1 A , RADHT , RAD1T , TT2 , ACR2 , PSOPT2 
WRITE (61,130) QOPT2 , PS3 , PS20LD , PS2 , RH02 , A2 
WRITE (61,140) RADNT , PT3 , TS3 , RH03 , NS , ETAPOLY 
WRITE (61,150) ETA1 ,CR1 ,H,SO,SOSO,ETA2 
WRITE (61,160) PT2,ETA3,ISTGT 
END IF 

ITER= ITER+1 
IF (ITER. GT. 50) THEN 

ERRORT=' FAILED TO CONVERGE IN 50 ITERATIONS IN SUBROUTINE AXTURB' 

ETATURB=.6 

RETURN 

END IF 

IF (ABS((PS2-PS20LD)/PS2).GT. 0.0001) GO TO 10 
IF ( ABS ( ETATTS -ETAOLD).GT. 0.00001) GO TO 10 
ANSQT=A2*SPEED**2 

C **** Compute approximate blade root stress levels in psi, TZM alloy 
RHOTZM=.37 

SIGMA=PI/1800./386.*RH0TZM*ANSQT 

TMATL=TEMP(10) 

C WRITE (*,234) SIGMA, TMATL, LIFETIME 
C 234 FORMAT (' SIGMA, TMATL, LIFETIME ',3E12.5) 

CALL STRNTH (TMATL, LIFETIME, SIGPV) 

ANSQTL=S IGPV/SI GMA*ANSQT 
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C WRITE (*,235) SIGPV,ANSQTL 
C 235 FORMAT (' SIGPV, ANSQTL '3E12.5) 


IF (ANSQT.GT. ANSQTL) ERRORT= 

& 'AXIAL TURBINE OPERATING ABOVE A*N A 2 LIMIT; RED. TIT OR INC. MW' 

RH01T=144*PRESS(10)/(RGAS*TEMP(10) ) 

RH02T= 1 44*PRESS ( 1 2 )/ ( RGAS*TEMP (12)) 

TURBSS=SPEED*(WDOT**2/RH01T/RH02T)**.25/(JCON*CP*(TEMP(10)- 
& TEMP( 12) ) )**. 75 
UTIPT=2.*PI*RADNT/12.*SPEED/60. 

C **** Convert from t-s to t-t overall efficiency 

ETATURB=ETATTS*( 1 . - ( PS3/PT1 )**( (GAMMA- 1 )/GAMMA) )/ 

& ( 1 . - ( PT3/PT1 )**( (GAMMA- 1 ) /GAMMA) ) 

ETATURB=MAX ( 0 . 6 , M I N ( . 98 , ETATURB ) ) 

ETATURB=MAX ( 0 . 6 , M I N ( . 95 , ETATURB) ) 

HMIN=RAD1T-RADHT 

IF (HMIN.LT.0.5) WARNINGC=' AXIAL TURBINE BLADE HEIGHT < .5 IN.' 
RETURN 

100 FORMAT (' DELHACT , DH IDEAL , TT2 , TT3 , RH02 , Q2 '/,1X,6E12.5) 

110 FORMAT (' ACR1 ,UHUBT,VU1A, V0ACR1A,VX,RH01A'/ , IX, 6E1 2.5) 

120 FORMAT (' A1A,RADHT,RAD1T,TT2,ACR2,PS0PT2'/,1X,6E12.5) 

130 FORMAT (' Q0PT2,PS3,PS20LD,PS2,RH02,A2'/,1X,6E12.5) 

140 FORMAT (' RADNT,PT3,TS3,RH03,NS,ETAP0LY'/,1X,6E12.5) 

150 FORMAT (' ETA1,CR1,H,SO,SOSO,ETA2'/,1X,6E12.5) 

160 FORMAT (' PT2, ETA3 , ISTGT'/, IX, 2E12 .5, 15) 

END 
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SDEBUG 

$NOTRUNCATE 

SUBROUTINE RECSIZE 

C **** RECSIZE is checked-out and final on October 6, 1992 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JL, JH, JCON 

CHARACTER*! 0 GAS(2) ,TVAR(18) 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , WARN INGC , 
& WARNINGR,WARNINGG 

COMMON/D I AGNOS/ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN INGT , 

& WARN INGC, WARN I NGR , WARN I NGG 

COMMON/OPTIM/ VAR(18) ,TVAR, IPRINT 
COMMON/OUTP/ WGTTOT , WGTTAC , REC LC , REC LOA , RECH , RECW 
COMMON/ FLUID/ GAS , GAMMA , MOLWT , CP , PRNDTL 

COMMON/CYCLE/TEMP(17) , PRESS(17) ,FLOW(17) ,PR(17) ,BETA,COMFLO, 

& PRC, EFFC,EFFT,E,EFFA,XBLC,XBLT, SPEED, POWER, PWRFCTR, 

& DP0P6,DP0P7,DP0P8,DP0P9,DP0P10,DP0P13,DP0P14,DP0P15,DP0P16, 

& DPOP1 7, NETSP,GROSSEP,EFFCYCLE, WINDAGE 
COMMON/RECUP/ DPDES , UAML , UAMH , DPML , DPMH , 

# PREXP,NFINL,TFINL,SPACEL,LEQL,ROFINL,KFINL,NFINH,TFINH,SPACEH, 

# LEQH , ROF I NH , KF INH , TPLATE , ROPLAT , TBRAZE, ROBRAZ , 

# SIGMAL,ALPHAL,AFINL,APLATL,HDL,SIGMAH,ALPHAH,AFINH,APLATH,HDH, 

# PITCH, WGTREC 

COMMON/MASSES/MASSCMP , MASSTRB , MWHLC , MWHLT , MS FTC, MSFTT , MCASEC , 

& MCASET , MD I AC , MD I AT 

COMMON/CONST/ P I , RU , GO , JCON , RZERO 


COUNTERFLOW PLATE-FIN RECUPERATOR ANALYSIS 


NOMENCLATURE 

OPTIONS AND COUNTERS 

FOR THESE PRINT OPTIONS 

0 = NO 

1 = YES 

IPRINT = PRINT OPTION 

AFIN = FIN AREA: VOLUME RATIO (SQ IN/CU IN) 

AFRONT = CORE FRONTAL AREA (SQ IN) 

ALPHA = HEAT TRANSFER AREA:VOLUME RATIO (SQ IN/CU IN) 
APLATE = PLATE OR TUBE AREA: VOLUME RATIO (SQ IN/CU IN) 
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C COND = HEAT TRANSFER CONDUCTANCE (BTU/SEC-R) 

C CP FLUID SPECIFIC HEAT (BTU/LBM-R) 

C DP PRESSURE LOSS (PERCENT OR PSID) 

C DPCORE = CORE PRESSURE DROP (PSID) 

C E RECUPERATOR TEMPERATURE EFFECTIVENESS (DMLS) 

C ETAFIN = FIN HEAT TRANSFER EFFECTIVENESS (DMLS) 

C F FRICTION FACTOR 

C FLOW = MASS FLOW RATE (LBM/SEC) 

C H SURFACE HEAT TRANSFER FILM CONDUCTANCE (BTU/SQ IN-SEC-R) 

C HCORE = CORE HEIGHT (INCHES) 

C HD PASSAGE HYDRAULIC DIAMETER (INCHES) 

C J COLBURN HEAT TRANFER "J- FACTOR" (DMLS) 

C K MATERIAL THERMAL CONDUCTIVITY (BTU/SEC-IN-R) 

C LEQ = EQUIVALENT FIN CONDUCTION LENGTH (INCHES) 

C LCORE = CORE LENGTH (INCHES) 

C MU FLUID VISCOSITY (LB/FT-SEC) 

C MOLWT = FLUID MOLECULAR WEIGHT (LB/LB-MOLE) 

C NFIN = NUMBER OF FINS PER INCH (DMLS) 

C P PRESSURE (PSIA) 

C PITCH = THICKNESS OF REPEATING CORE SANDWICH (INCHES) 

C PR FLUID PRANDTL NUMBER (DMLS) 

C RU UNIVERSAL GAS CONSTANT (FT-LBF/R-LB MOLE) 

C REY = REYNOLDS NUMBER (DMLS) 

C SIGMA = FREE-FLOW AREA: FRONTAL AREA RATIO (DMLS) 

C SPACE = PLATE SPACING (INCHES) 

C RHOFIN = FIN MATERIAL DENSITY (LBM/CU FT) 

C ROPLAT = SPLITTER PLATE MATERIAL DENSITY (LBM/CU FT) 

C T TEMPERATURE (DEG R) 

C TBRAZ = CORE BRAZE MATERIAL THICKNESS (INCHES) 

C TFIN = FIN MATERIAL THICKNESS (INCHES) 

C TPLATE = SEPARATOR PLATE MATERIAL THICKNESS (INCHES) 

C UA HEAT TRANSFER OVERALL CONDUCTANCE (BTU/S-R) 

C WCORE = CORE WIDTH (INCHES) 

C 

C 

C SUFFIX DEFINITIONS 
C xH High-pressure flowpath 

C xL Low-pressure flowpath 

C 
C 

C xIH = Inlet to high-pressure passage 

C xDH = Discharge from high-pressure passage 

C xIL = Inlet to low-pressure passage 

C xDL = Discharge from low-pressure passage 

C 

C **** Assumptios - 

C 1) 30% of the pressure drop allocation is consumed in the entry/exit 

C transitions. Therefore the core is designed at 70% of the allocated 

C pressure loss. 

C 2) The recuperator entry/exit transition sections, end-sections and 

C headers add 50% to the core mass. 
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C **** Check the input data file for the presence of a recuperator. If 
C **** Er = 0 an unrecuperated cycle design in assumed. 

IF (E.LE.O.) THEN 
WGTREC=0. 

DPOP7=0. 

DP0P14=0. 

RETURN 
END IF 

C **** Initialize and equate recuperator design variables 

ERR0RR=' ' 

WARNINGR=' ' 

DPFRACT=.7 

LC0RE=20. 

REYH=300. 

TIH=TEMP(6) 

PIH=PRESS(6) 

TIL=TEMP(13) 

P I L=PRESS (13) 

FLOWL=FLOW(13) 

FL0WH=FL0W(6) 

TDH=TIH+E*(TIL-TIH) 

TDL=TIL-E*FLOWH/FLOWL*(TIL-TIH) 

C **** Compute log-mean temperature difference and required conductance. 

LMDT=( (TIL-TDH)+(TDL-TIH) )/2. 

UAREQD=FLOWH*CP*(TDH-TIH)/LMDT 

C **** Compute values for design constant groupings. 

CON3L=2.*LEQL**2/(KFINL/3600./12.*TFINL) 

CON3H=2 . *LEQH**2/ ( KFINH/3600 . / 1 2 . *TF INH) 

C0N10=2.*TPLATE/PITCH 

C0N11L=NFINL*TFINL*(SPACEL+1./NFINL-TFINL)/PITCH 

C0N11H=NFINH*TFINH*(SPACEH+1./NFINH-TFINH)/PITCH 

C **** Define viscosity and Prandtl No. for high-pressure flow passage. 

TDH=TIH+E*(TIL-TIH) 

DELHH=CP*(TDH-TIH) 

MUH=AVVISC(TIH,TDH) 

PRH=CP*MUH/AVCOND(TI H , TDH ) 

C **** Define viscosity and Prandtl No. for low-pressure flow passage. 
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DELHL=-DELHH*FLOWH/FLOWL 

TDL=TIL+DELHL/CP 

DELHL=CP*(TDL-TIL) 

MUL=AVVISC(TIL,TDL) 

PRL=CP*MUL/AVCOND (TIL ,TDL) 

C **** Define thermal -capacity-rate-ratio [TCRAT] and low-pressure side Er 


TCRAT=FLOWH/FLOWL 

IF (ABS (TCRAT- 1 . ) . LT. 1 . E-4) TCRAT=1 
EL=E*TCRAT 

PML=PIL 

PMH=PIH 

PDL=PIL 

PDH=PIH 

TML=(TIL+TDL)/2. 

TMH=(TIH+TDH)/2 . 

C **** Compute values for design constant groupings. 

C0N1L=HDL/(MUL*SIGMAL)*12. 

CON 1H=HDH/ ( MUH*S I GMAH ) * 1 2 . 

C0N2L=(CP*MUL)/(PRL**PREXP*HDL)/12.*(0.7**PREXP)/(0.7**.66667) 

CON2H= ( CP*MUH )/ ( PRH**PREXP*HDH)/ 1 2 . * (0 . 7**PREXP)/ (0 . 7** . 66667 ) 

ITER=0 

10 FRONT=FLOWH/REYH*CON1H 
REYL=FL0WL/FR0NT*C0N1L 

C **** Compute friction factor and Colburn j -factor for both flow passages 

FH=10**(2. 307556-1. 904247*ALOG10(REYH)+.2408641*ALOG10(REYH)**2) 
FL=10**(2. 307556-1. 904247*AL0G10(REYL)+.2408641*ALOG10(REYL)**2) 
JH=10**(1 . 196432-1 . 52483 1*AL0G10 (REYH)+. 1688725*ALOG10(REYH)**2) 
JL=10**(1 . 196432-1 .52483 1*AL0G10(REYL)+. 1688725*ALOG10(REYL)**2) 
HL=C0N2L*JL*REYL 
HH=C0N2H*JH*REYH 

C **** Compute the double-sided fin effectiveness. 

BRACL=SQRT (HL*C0N3L) 

BRACH=SQRT (HH*C0N3H) 

ETAFNL=TANH(BRACL)/BRACL 
ETAFNH=TANH ( BRACH ) /BRACH 

C **** Compute the overall suface heat transfer effectiveness. 


ETAL=1 . -AFINL/ALPHAL*( 1 . -ETAFNL) 
ETAH=1 . -AFINH/ALPHAH*( 1 . -ETAFNH) 
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c **** Compute Eta*HAs here w/o axial conduction influence. 

ETAHAL=ETAL*HL*(AF I NL+APLATL ) *FR0NT*LC0RE 
ETAHAH=ETAH*HH* ( AF I NH+APLATH )*FR0NT*LC0RE 

C **** Compute the overall heat transfer conductance for this iteration. 

UACALC=1 . / ( ( 1 . +UAML ) / ETAHAL+ ( 1 . +UAMH ) /ETAHAH ) 
LCORE=LCORE*UAREQD/UACALC 

C **** p or task Order 18 studies, no end section is computed; LENGTH=LCORE 


LENGTH=LCORE 

CON6 L= ( (MUL/12. )*REYL/(HDL*PML) )**2*( RU/MOLWT*T I L/ ( 2 . *G0 ) ) 

CON6H= ( ( MUH/ 12. )*REYH/( HDH*PMH ) ) **2* ( RU/MOLWT*T I H/ ( 2 . *G0 ) ) 
DPC0RL=C0N6L*(4.*FL*LC0RE/HDL)*(TML/TIL)*(1+DPML) 

DPCORH=CON6H* ( 4 . *FH*LCORE/HDH ) * (TMH/T IH ) * ( 1+DPMH ) 

DP0PTL=1 . - ( 1 . -DPC0RL)*(1 . -DPCORH) 

PDL=PIL*(1 . -DPCORL) 

PDH=PIH*(1. -DPCORH) 

PML=(PIL+PDL)/2. 

PMH=(PIH+PDH)/2 . 

C **** Estimate the value of high-press side Reynold's No. to achieve 
C **** convergence on the desired fractional pressure loss. 

REYH=REYH*SQRT(DPFRACT*DPDES/DPOPTL) 

ITER=ITER+1 

IF (ITER. GE. 100) ERR0RR=' ITERATION LIMIT EXCEEDED IN RECUPERATOR 
#R0UTINE' 

C **** Check for the presence of an error message. 

IF (ERRORR.NE. ' ') GO TO 30 

C **** Check for convergence of calculated and desired pressure loss. 
IF (ABS((DPFRACT*DPDES-DPOPTL)/(DPFRACT*DPDES)).GT. .001) GO TO 10 


30 WCORE=SQRT( FRONT) 
HCORE=SQRT( FRONT) 


C ******************* Basic core mass only ************* June 12,1992 

C **** Compute the weight components of the core design defined above. 

WPLATE=C0N10*HC0RE*WC0RE*LC0RE*R0PLAT 

WBRAZE=2 . * (TBRAZE/TPLATE ) * ( ROBRAZ/ROPLAT ) *WPLATE 

WFINL=FR0NT*C0N11L*LC0RE*R0FINL 
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WFINH=FR0NT*C0N11H*LC0RE*R0FINH 

WBARS=RZERO 

WWRAP=RZERO 

WHDRL=RZERO 

WHDRH=RZERO 

VOLUME=RZERO 

WFLOWL=RZERO 

WFLOWH=RZERO 

WGTREC=(WPLATE+WFINL+WFINH+WBARS+WWRAP+WHDRL+WHDRH+WBRAZE+WFLOWL+ 

#WFLOWH) 

C **** Adding a 50% allowance for end-sections/ wrap-up 
WGTREC=WGTREC*1 . 5 
CONDL=ETAL*HL*FRONT*LCORE*ALPHAL 
CONDH=ETAH*HH*FRONT*LCORE*ALPHAH 

C **** Print design summary to File:PR0G$0UT is IPRINT.GT.O 

IF ( I PRINT . GE . 1) THEN 

C ** convert to SI for printout 

XTIL=TIL/1 .8 
XTDL=TDL/1 .8 
XT I H=T I H/ 1 . 8 
XTDH=TDH/1 .8 

XFLOWL=FLOWL*0. 45359 
XPIL=PIL*6.8948 
XFLOWH=FLOWH*0. 45359 
XPIH=PIH*6.8948 
XCONDL=CONDL*1054.4*1 .8 
XMUL=MUL*1488. 

XCP=CP 

XCONDH=CONDH*1054.4*1 .8 
XMUH=MUH*1488. 

XWHDRL=WHDRL*. 45359 
XWFINL=WFINL*. 45359 
XWFLOWL=WFLOWL* . 45359 
XWHDRH=WHDRH*. 45359 
XWFINH=WFINH*. 45359 
XWFLOWH=WFLOWH* . 45359 

XWGTREC=WGTREC* . 45359 
XWPLATE=WPLATE* . 45359 
XWBARS=WBARS*.45359 
XWWRAP=WWRAP* . 45359 
XWBRAZE=WBRAZE* . 45359 


XLC0RE=LC0RE*2 . 54 
XWCORE=WCORE*2 . 54 
XHC0RE=HC0RE*2 . 54 
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XLENGTH=LENGTH*2 . 54 
XVOLUME=VOLUME* ( 1 2**3 . ) * ( 2 . 54**3 . ) 

WRITE (61,100) 

WRITE (61,120) 

WRITE (61,110) 

WRITE (61,120) 

WRITE (61,180) GAS ( 1 ) , GAS ( 2 ) , GAS ( 1 ) , GAS ( 2 ) 

WRITE (61,120) 

WRITE (61,190) 

WRITE (61,130) EL,XTIL,XTDL,E,XTIH,XTDH 
WRITE (61,200) 

WRITE (61,210) 

WRITE (61,130) XFLOWL,XPIL,DPCORL,XFLOWH,XPIH,DPCORH 
WRITE (61,220) 

WRITE (61,130) ETAFNL , REVL , PRL , ETAFNH , REYH, PRH 
WRITE (61,230) 

WRITE (61,130) XCONDL , XMUL , XCP , XCONDH , XMUH , XCP 
WRITE (61,240) 

WRITE (61,130) XWHDRL , XWF I NL , XWF LOWL , XWHDRH , XWF I NH , XWF LOWH 
WRITE (61,100) 

WRITE (61,160) 

WRITE (61,250) 

WRITE (61,160) 

WRITE (61,140) XWGTREC , XWPLATE , XWBARS , XWWRAP , XWBRAZE , RZERO 
WRITE (61,150) 

WRITE (61,260) 

WRITE (61,160) 

WRITE (61,140) XLCORE , XWCORE , XHCORE , XLENGTH , XVOLUME , DPDES 
WRITE (61,150) 

WRITE (61,100) 

END IF 
RETURN 


100 FORMAT (IX, 127 ( 1H*) ) _ rnnArn , ro .. 

115 FORMAT (IX, 'FAILED TO CIRCLE IN 50 PASSES, TOO BAD. ERRASP= , F8.4) 
110 FORMAT (IX, 1H*,22X, 17HL0W PRESSURE SIDE,23X, 1H*,22X, 18HHIGH PRESSU 
#RE SIDE , 22X , 1H*) 

120 FORMAT (IX, 1H*,62X, 1H*,62X, 1H*) 

130 FORMAT (1X,1H*,62X,1H*,62X,1H*,/,1X,1H*,2(5X,E12.5,2(8X,E12.5), 
#5X, 1H*) ,/, IX, 1H*,62X, 1H*,62X, 1 H* , / , 1 X , 1H*,62X, 1H*,62X, 1H*) 

140 FORMAT (IX, 1H*,5X,E12.5,2(8X,E12.5) ,11X,E12.5,2(8X,E12.5) ,5X,1H*) 
150 FORMAT (IX, 1H*, 125X, 1H*,/, IX, 1H*, 125X, 1H*) 

155 FORMAT (5X, 'RECUPERATOR TOTAL COST,$' ,F12.0) 

160 FORMAT (IX, 1H*, 125X, 1H*) 

170 FORMAT (1X,51X,28HPLATE FIN COUNTERFLOW DESIGN,/) 

180 FORMAT ( IX , 1H* , 23X , 7HGAS IS ,2A10,12X,1H*,23X,7HGAS IS ,2A10, 12X, 1 
#H*) 

190 FORMAT (IX, 1H*,4X, 13HEFFECTIVENESS,4X, 17HINLET TEMPERATURE, 5X, 16HE 
#XIT TEMPERATURE, 3X, 1H*,4X, 13HEFFECTIVENESS,4X, 17HINLET TEMPERATURE 

# , 5X , 16HEXIT TEMPERATURE, 3X, 1H*,/, IX, 1H*,7X,7H( ),13X,8H(DEG K 

#),12X,8H(DEG. K) ,7X, 1H*,7X,7H( ) ,13X,8H(DEG. K) , 12X ,8H (DEG . K) 
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#,7X, 1H*) 

200 FORMAT (IX, 1H*,7X,9HFL0W RATE,8X, 14HINLET PRESSURE, 7X, 13HPRESSURE 
#DR0P,4X, 1H*,7X,9HFL0W RATE, 8X, 14H INLET PRESSURE, 7X, 13HPRESSURE DRO 
#P,4X,1H*) 

210 FORMAT ( IX , 1 H* , 7X , 8H ( KG/SEC ) , 13X,6H(KPA) , 13X,9H (DP/P) ,6X,1H*,7 
#X,8H(KG/SEC) , 13X,6H(KPA) , 13X,9H (DP/P) ,6X,1H*) 

220 FORMAT (IX, 1H*,2X, 17HFIN EFFECTIVENESS, 6X, 12HREYN0LDS N0.,8X,11HPR 
#ANDTL NO. ,6X, 1H*,2X, 17HFIN EFFECTIVENESS, 6X, 12HREYN0LDS N0.,8X,11H 

#PRANDTL NO. ,6X, 1H*,/, IX, 1H*,7X,7H( ) , 13X,7H( ),13X,7H( 

#-) ,8X, 1H*,7X,7H( ) , 13X,7H( ),13X,7H( ),8X,1H*) 

230 FORMAT (IX, 1H*,3X, 16HH.T. CONDUCTANCE, 7X,9HVISC0SITY,9X, 13HSPECIFI 
#C HEAT,5X, 1H*,3X, 16HH.T. CONDUCTANCE, 7X,9HVISCOSITY,9X, 13HSPECIFIC 

# HEAT,5X,1H*,/,1X,1H*,7X,10H(W/ DEG.K) , 11X,4H(CP) ,12 
#X,14H(CAL/GM-DEG.K),4X,1H*,7X,10H(W/ DEG.K) ,11X,4H(CP),12X, 
#14H(CAL/GM-DEG.K) ,4X, 1H*) 

240 FORMAT (IX, 1H*,5X, 13HHEADER WEIGHT, 9X, 10HFIN WEIGHT, 9X, 12HFLUID WE 
#IGHT,4X, 1H*,5X, 13HHEADER WEIGHT, 9X, 10HFIN WEIGHT, 9X, 12HFLUID WEIGH 
#T,4X,1H*,/,1X,1H*,9X,4H(KG),17X,4H(KG),16X,4H(KG),8X,1H*,9X,4H(KG) 
#, 17X,4H(KG) , 16X,4H(KG) ,8X, 1H*) 

250 FORMAT (IX, 1H*,5X, 12HT0TAL WEIGHT, 8X, 12HPLATE WEIGHT, 6X, 17HSPACER 
#BAR WEIGHT, 7X,14HWRAP UP WEIGHT, 7X,12HBRAZE WEIGHT, 9X, 12H 

# ,4X, 1H*,/, IX, 1H*,9X,4H(KG) , 16X,4H(KG) , 16X,4H(KG) , 19X,4H(KG) , 16X 

#,4H(KG) , 16X,7H( ) ,6X, 1H*) 

260 FORMAT (IX, 1H*,5X, 11HC0RE LENGTH, 10X, 10HC0RE WIDTH, 10X, 11HC0RE HEI 
#GHT, 10X, 14H0VERALL LENGTH, 10X,6HV0LUME,7X, 19HT0TAL PRESSURE DROP, 2 


#X,1H*/,1X,1H*,7X,4H(CM),2(17X,4H(CM)),16X,4H(CM),18X, 

#7H (CU.CM) , 13X , 9H (DP/P) ,5X,1H*) 

280 FORMAT (IX,' CASE NO =',I4/) 

300 FORMAT (50X,8A10) 

310 FORMAT ( 1 H 1 , 48HTDH , DELHH , CPH , MUH , PRH = ,6E 

#12.5) 

320 FORMAT (1X,48HTDL,DELHL,CPL,MUL, PRL = ,6E1 

#2.5) 

330 FORMAT (1X,48HTCRAT,C0N1L,C0N1H,C0N2L,C0N2H = ,6E1 

#2.5) 

340 FORMAT (1X,48HC0N3L,C0N3H,C0STL,C0STH,SINTL,SINTH = ,6E1 

#2.5) 

350 FORMAT (1X,48HTANTL,TANTH,C0N4L,C0N4H,C0N5 = ,6E1 

#2.5) 

360 FORMAT (IX, 48HC0N7L,C0N7H,C0N8L,C0N8H, FRONT, REYL = ,6E1 

#2.5) 

370 FORMAT ( IX , 48HFL , JL , FH , JH = ,6E1 

#2.5) 

390 FORMAT ( IX , 48HHL , HH , BRACL , BRACH , ETAL , ETAH = ,6E1 

#2.5) 

400 FORMAT ( IX , 48HBRAC , LCORE , LHDRL , LHDRH , REHDRL , REHDRH = ,6E1 

#2.5) 

410 FORMAT (IX, 48HFHDRL , FHDRH , C0N6L , C0N6H , DPCORL , DPCORH = ,6E1 

#2.5) 

420 FORMAT (IX, 48HDPCTRL , DPCTRH , DPHDRL , DPHDRH , DPEXPL , DPEXPH = ,6E1 

#2.5) 

430 FORMAT (1X,48HDPTRNL,DPTRNH,DP0PL,DP0PH,DP0PTL = ,6E1 
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#2.5) 

440 FORMAT (1X,48HPDL,PDH,PML,PMH = ,6E1 

#2.5) 

450 FORMAT (1X,48HPITCH,CON10,CON11L,CON11H,CON12L,CON12H = ,6E1 


#2.5) 

460 FORMAT ( IX , 48HDTL0 , DTLL , D2TL0 , D2TLL , TDL , EXPL3 
#2.5) 

470 FORMAT ( IX , 51HD13 , D14 , D3 1 , D32 , D33 , D42 
#6E1 2 . 5/52H D43,R1,R2,DETA,DETB,DETC 
#2 - 5/52H DETD,DETE,A,B,C,D 
#) 

480 FORMAT (1X,44HC1,C2,C3,PP,QQ,RR 
490 FORMAT (1X,44HAA,BB,C0SPHI , PHI 
500 FORMAT (1X,44H(M(I) , 1=1 ,3) 

510 FORMAT (39X,7HEFFECT. ,4X,8HTT INLET, 4X,9HTT DISCH. ,5X,4HFL0W,6X,8H 

#PT INLET, 3X,11HPRANDTL NO. ,6X,3HGAS,/39X,7H( ) , 2 (4X , 8H (DEG . R) 

#) ,4X,8H( LB/SEC) ,5X,6H(PSIA) ,6X, (7H( ) ,5X)/) 

520 FORMAT (4X,32HLOW PRESSURE SIDE ,F9.4,3X,F9.2,3X,F10 

# . 2 , 2X , F 10 . 3 , 2X ,F9.2,3X,F9.5, 6X , 2A10) 

530 FORMAT (4X,32HHIGH PRESSURE SIDE ,F9.4,3X,F9.2,3X,F10 

#.2,2X,F10.3,2X,F9.2,3X,F9.5,6X,2A10) 

540 FORMAT (14X,9HL.P. DP/P,3X,9HH.P. DP/P,2X,95HT0TAL DP/P 

# /WEIGHT VOLUME CORE LENGTH HEIGHT WIDTH TOTA 

#L LENGTH,/, 15X,4(7H( ),5X),1X,4H(LB),6X,8H(CU.FT.),4(4X,8H(INC 

#HES) )/) 

550 FORMAT (12X,3(F9.5,3X) ,F9.3,F13.3, E11.4,1X,4(F10.3,2X)) 

560 FORMAT (/ , IX , 130 ( 1 H*) ) 

570 FORMAT (1X,6E12.5) 

END 


= ,6E1 


“,UL1 

=,6E12.5 

=,6E12.5) 
= , 6E12 . 5 ) 
=,6E12.5) 


SUBROUTINE DUCTING 

C **** DUCTING is checked-out and final on October 6, 1992 

IMPLICIT REAL (A-H, K-Y) 

IMPLICIT INTEGER (I-J) 

CHARACTER*60 ERR1, ERR2, ERR3, ERR4, ERR5, ERR6, ERR7, ERR8, 

& ERR9, ERR10, ERR11, ERR12 
COMMON /DUCTI 1/ IDUCT, PIN, POUT, MDOT, TIN, MW 
COMMON /DUCT I 2/ ELI (6), EL2(6), TWL(6), DNWL(6), NMFI (6) , 

& TMFI (6) , DMFI (6) , ETA(6) 

COMMON /DUCTOUT/ WGTDUCT(6), DIAM(6), LGTH(6), VGAS(6) 

COMMON /DUCTERR/ ERR1, ERR2, ERR3, ERR4, ERR5, ERR6, ERR7, ERR8, 
& ERR9, ERR10, ERR11 , ERR12 


C** INPUT DATA FROM THE CYCLE CODE 

C** PIN - inlet pressure to the duct section, psia 

C** POUT - outlet pressure from the duct section, psia 

C** TIN - temperature at the inlet to the duct section, R 

C** MDOT - mass flow rate in the duct section, lb/s 

C** MW - molecular weight of the gas, Ibm/lbmole 
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C** DATA FROM THE INPUT DATA FILE 


C** IDUCT - duct section 
C** iduct=l - duct section 
C** iduct=2 - duct section 
C** iduct=3 - duct section 
C** iduct=4 - duct section 
C** iduct=5 - duct section 
C** iduct=6 - duct section 


identifier 

between statepoints 5 and 6 
between statepoints 7 and 8 
between statepoints 9 and 10 
between statepoints 12 and 13 
between statepoints 14 and 15 
between statepoints 16 and 17 


C** ELI ( iduct ) 
C** EL2 ( iduct ) 
C** TWL(iduct) 
C** DNWL( iduct) 
C** NMFI(iduct) 
C** TMFI(iduct) 
C** DMFI (iduct) 
C** ETA( iduct) 


L/Ds of straight duct in duct i 
L/D equivilent for elbows, etc, in duct i 
wall thickness for duct i 
density of the wall material for duct i 
number of layers of MFI on the duct 
thickness of individual MFI foil, in 
bulk density of the MFI system, lb/ft3 
surface roughness of the duct i 


C** He-Xe GAS PROPERTIES 
C** CP - gas heat capacity, Btu/lb-F 
C** DN - gas density, lbm/cu ft 
C** PN - Prandtl No. 

C** KG - thermal conductivity, Btu/hr-ft-F 
C** VS - viscosity, lbm/hr-ft 


C** COMPUTED PARAMETERS TO BE PASSED BACK TO MANE 

C** WGTDUCT( iduct) - total weight of duct segment, lbm 

C** DIAM(iduct) - inside diameter of duct segment iduct, in 

C** LGTH(iduct) - length of duct run iduct, in 

C** VGAS(iduct) - velocity of the gas in duct i, ft/s 

PI=3. 14159265359 
GC=32 . 1739 

PP=PIN 

TT=TIN - 460. 

DP=PIN - POUT 

CALL HEXEN(MW, PP,TT,CP,DN,KG, VS) 

C** INITIAL GUESS OF DUCT GAS VELOCITY, FT/SEC 
VELGAS = 75.0 

C** INITIALIZE ITERATIONS 
NITER = 0.0 
DO 100 I = 1,1000 

C** CALCULATED DIAMETER (in) FROM VELOCITY 
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DID = (DSQRT((4.0*MDOT)/(DN*VELGAS*PI)))*12.0 

C** REYNOLDS NUMBER 

RE = VELGAS*DN* (DID/ 12.0)/ (VS/3600.0) 

C** PRESSURE COEFFICIENT 

PC = ((MD0T/((PI*(DID)**2.0)/4.0))**2.0)*144.0/(2.0*GC*DN) 

C** FF, FRICTION FACTOR 

C** ETA, SURFACE ROUGHNESS, in 

FF = 0.25/(AL0G10(ETA(IDUCT)/(3.7*DID) + 5.74/RE**0.9) )**2.0 
IF (RE. LE. 2000.0) FF = 64.0/RE 
IF (RE. GT. 2000.0 .AND. RE. LT. 4000.0) 

& FF = 0 . 032* (1.0 - (RE-2000. 0)/2000.0) + FF*(RE-2000.0)/2000.0 

C** DP, CALCULATED PIPE PRESSURE DROP, Ibm/sq in 
C** ELI, L/D FOR STRAIGHT PIPE 

C** EL2, L/D FOR LOSSES 

DPC = FF*( ELI ( IDUCT)+EL2( IDUCT) )*PC 

ERROR = (DPC-DP)/DP 
C** CHECK PRESSURE DROP 

IF (ABS( ERROR). LT. 0.002) GO TO 200 

NITER = NITER + 1.0 

VELGAS = VELGAS*(1 - (0.1*ERR0R)) 
c WRITE (*,99) NITER, VELGAS 
c 99 FORMAT (' ITERATIONS =', F7.1,/, 
c & ' VELGAS FT/S = ' , F10.3) 

100 CONTINUE 
200 CONTINUE 

IF (IDUCT . EQ . 1 .AND. VELGAS. GT. 196.85) ERR1=' WARNING, GAS VELOCITY 
& IN DUCT 1 EXCEEDS 60 M/S' 

IF (IDUCT. EQ. 2 .AND. VELGAS. GT. 196.85) ERR2=' WARNING, GAS VELOCITY 
& IN DUCT 2 EXCEEDS 60 M/S' 

IF (IDUCT. EQ. 3 .AND. VELGAS. GT. 196.85) ERR3=' WARNING, GAS VELOCITY 
& IN DUCT 3 EXCEEDS 60 M/S' 

IF (IDUCT. EQ. 4 .AND. VELGAS. GT. 196.85) ERR4=' WARNING, GAS VELOCITY 
& IN DUCT 4 EXCEEDS 60 M/S' 

IF (IDUCT. EQ. 5 .AND. VELGAS. GT. 196.85) ERR5=' WARNING, GAS VELOCITY 
& IN DUCT 5 EXCEEDS 60 M/S' 

IF (IDUCT. EQ. 6 .AND. VELGAS. GT. 196.85) ERR6=' WARNING, GAS VELOCITY 
& IN DUCT 6 EXCEEDS 60 M/S' 

IF (IDUCT. EQ.l .AND. VELGAS. LT. 49. 21) ERR7=' WARNING, GAS VELOCITY 


132 


& IN DUCT 1 IS LESS THAN 15 M/S' 

IF (IDUCT.EQ.2 .AND. VELGAS.LT.49.21) ERR8=' WARNING, GAS VELOCITY 
& IN DUCT 2 IS LESS THAN 15 M/S' 

IF (IDUCT.EQ.3 .AND. VELGAS.LT.49.21) ERR9=' WARNING, GAS VELOCITY 
& IN DUCT 3 IS LESS THAN 15 M/S' 

IF (IDUCT.EQ.4 .AND. VELGAS.LT.49.21) ERR10='WARNING, GAS VELOCITY 
& IN DUCT 4 IS LESS THAN 15 M/S' 

IF (IDUCT.EQ.5 .AND. VELGAS.LT.49.21) ERR11='WARNING, GAS VELOCITY 
& IN DUCT 5 IS LESS THAN 15 M/S' 

IF (IDUCT.EQ.6 .AND. VELGAS.LT.49.21) ERR6='WARNING, GAS VELOCITY 
& IN DUCT 6 IS LESS THAN 15 M/S' 

C** Length the duct segment, in 

LGTH(IDUCT) = ELI ( IDUCT) *DID 

C** MASS FOR EACH DUCT, lbm 

C** TWLL, DUCT WALL THICKNESS, in 

C** DNWL, DUCT WALL DENSITY, lbm/cu in 

C** Multiply duct mass by 1.25 accounting for flanges, bellows, etc 

DMS = (PI/4. )*(( (DID+2.0*TWL( IDUCT) )**2.0)-(DID**2.0)) 

& *DNWL(IDUCT)*LGTH(IDUCT)*1 .25 

C** MASS FOR MFI, lbm 
C** NMFI, NUMBER OF MFIs 
C** TMFI, MFI FOIL THICKNESS, in 
C** DMFI, MFI FOIL DENSITY, lbm/IN2 
DMFI1 = DID+2*TWL( IDUCT) 

DMFI 2 = DMFI1 + ( (TMFI ( IDUCT)+0. 005)*NMFI ( IDUCT) ) 

DAVG = ( (DMFI 1**2. +DMF 1 2**2 .! )/2. )**0.5 

MFM = P I *DAVG*TMF I ( I DUCT ) *NMF I ( I DUCT ) *LGTH ( I DUCT ) *DMF I ( I DUCT ) 

C** TOTAL DUCT MASS, lbm 
TDM = DMS + MFM 

C** ASSIGN VARIABLES TO BE PASSED 

WGTDUCT( IDUCT) = TDM 
DIAM(IDUCT) = DID 
VGAS( IDUCT) = VELGAS 

RETURN 

END 

C.pa 


SUBROUTINE HEXEN (MW, P,T,CP,DN,TK,VS) 
IMPLICIT REAL (A-H, K-Y) 
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ooooo oo oooo oo oo oooooooooooo 


IMPLICIT INTEGER (I-J) 

COMMON / PROP / MW, P, T, CP, DN, PR, TK, VS 

* "THERMOPHYSICAL PROPERTIES OF NEON, ARGON, KRYPTON, AND XENON", 

HEMISPHERE PUBLISHING CORP., 1988, (ORIGINALLY PUB IN USSR 1976) 

* MCCARTY, R.D. , "THERMOPHYSICAL PROPERTIES OF HELIUM-4 
FROM 4 - 3000 R WITH PRESSURES TO 15000 PSIA", NBS TN-622, 
NATIONAL BUREAU OF STANDARDS, SEPTEMBER 1972. 

T = TEMPERATURE (deg. F) 

P = PRESSURE ( psia ) 

MOLECULAR WEIGHTS, HELIUM = 4.0, XENON = 132.0 

HMW = 4.0 

XMW = 131.3 

P2=P*P 

P3=P2*P 

P4=P3*P 

P5=P4*P 

HELIUM-XENON HEAT CAPACITY, Btu/lbm-F 
CP = 4.97/MW 

HELIUM-XENON DENSITY, IDEAL GAS LAW, lbm/cu ft 
DN = 144.0 * P * MW / (1545.35 * (T + 459.67)) 

CALCULATE HELIUM THERMAL CONDUCTIVITY (Btu/hr-ft-deg F) 

INPUT: T = TEMPERATURE (deg. F) (-300 < T < 2540) 

P = PRESSURE (psia) (1 < P < 300) 

Cl = 8.031646E-02 + 8.451721E-06*P - 1 .998365E-07*P2 

& + 2.370611 E-09*P3 - 1 . 103283E- 1 1*P4 + 1 . 712007E- 14*P5 

C2 = 1.207389E-04 + 2.882537E-08*P - 9.447555E-10*P2 

& + 9 . 894130E- 1 2*P3 - 4 . 218863E- 14*P4 + 6. 16841 1 E- 1 7*P5 

C3 = - 4. 119922E-08 + 2 . 712740E- 12*P + 4. 123287E- 13*P2 

& - 7 . 577886E- 15*P3 + 4.418570E-17*P4 - 7.777818E-20*P5 

C4 = 2.835525E-11 - 8.903979E-14*P + 1 .830885E-15*P2 

& - 1 . 403 1 59E - 1 7*P3 + 4. 1 03426E - 20*P4 - 3.876697E-23*P5 

C5 = - 1 . 093462E- 14 + 6 . 694365E- 17*P - 1.532337E-18*P2 

& + 1 . 335025E- 20*P3 - 4.706945E-23*P4 + 5 . 755328E- 26*P5 

C6 = 1 . 591878E- 18 - 1 . 3497 12E- 20*P + 3.189740E-22*P2 

& - 2.878863E-24*P3 + 1 .059138E-26*P4 - 1 .354441E-29*P5 

HTK = Cl + C2*T + C3*T**2 + C4*T**3 + C5*T**4 + C6*T**5 
HTK = T*( T*( T*( T*( T*C6 + C5) + C4) + C3) + C2) + Cl 

CALCULATE XENON THERMAL CONDUCTIVITY (Btu/hr-ft-F) 

INPUT: T = TEMPERATURE (deg. F) (-150 < T < 1900) 

P = PRESSURE (psia) (14.5 < P < 300) 

Cl = 2.755341E-03 + 1 .455947E-06*P + 1 .415970E-09*P2 

C2 = 5.708226E-06 - 3 . 01 1999E-09*P - 9.272117E-12*P2 

C3 = - 8.638393E-10 + 5 . 376902E- 12*P + 1 . 969676E- 14*P2 
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C4 = - 1.31 5491 E - 13 - 5.839467E-15*P - 1 . 884432E- 1 7*P2 

C5 = 1 . 574533E - 16 + 3. 108693E-18*P + 8 . 322497E-2 1*P2 

C6 = - 3 . 158769E-20 - 6.218946E-22*P - 1 .375837E-24*P2 

C 

C XTK = Cl + C2*T + C3*T**2 + C4*T**3 + C5*T**4 + C6*T**5 
XTK = T*( T*( T*( T*( T*C6 + C5) + C4) + C3) + C2) + Cl 
C 

TA1 = (1.0 + SQRT(HTK/XTK)*(HMW/XMW) **0.25) **2.0 / 

+ (2.82843*SQRT(1.0 + HMW/XMW)) 

TA2 = (1.0 + SQRT ( XTK/HTK ) * ( XMW/HMW ) **0 .25) **2 . 0 / 

+ ( 2 . 82843*SQRT (1.0 + HMW/XMW)) 

TB1 = (2.41 * (HMW - XMW)*(HMW - 0. 142*XMW) )/(HMW + XMW)**2.0 

TB2 = (2.41*(XMW - HMW)*(XMW - 0. 142*HMW) )/(HMW + XMW)**2.0 

TCI = TA1*(1 .0 + TB1) 

TC2 = TA2*(1 .0 + TB2) 

C MIX THERMAL CONDUCTIVITY 

TK = HTK/(1 .0+TCl*(MW-HMW)/ (XMW-MW) ) + 

+ XTK/ ( 1 . 0+TC2*(XMW-MW)/ (MW-HMW) ) 

CALCULATE HELIUM DYNAMIC VISCOSITY (1 bm/hr-ft) 

INPUT: T = TEMPERATURE (deg. F) (-300 < T < 2540) 

P = PRESSURE (psia) (1 < P < 300) 

Cl = 4.314593E-02 + 6. 194756E-08*P + 4.998798E-09*P2 

& - 1.323100E-10*P3 + 1 . 099206E- 12*P4 - 2 . 282 1 1 7E - 1 5*P5 

C2 = 6.446683E-05 - 4.772369E-09*P + 5 .663575E- 1 1*P2 

& - 6 . 687830E - 13*P3 + 2 . 848734E - 1 5*P4 - 4.006185E-18*P5 

C3 = - 1.809663E-08 + 1 . 830709E - 1 1*P - 3 . 212607E- 13*P2 

& + 4 . 683985E - 1 5*P3 - 2 . 644519E- 17*P4 + 4.624817E-20*P5 

C4 = 9.059456E-12 - 2. 194842E- 14*P + 4.340343E-16*P2 

& - 6.655726E- 18*P3 + 3.952066E-20*P4 - 7. 122290E-23*P5 

C5 = - 2.669536E-15 + 1 .039065E-17*P - 2. 189294E-19*P2 

& + 3.441683E-21*P3 - 2.091342E-23*P4 + 3.819015E-26*P5 

C6 = 3 . 1 28055E- 19 - 1 .690270E-21*P + 3.704323E-23*P2 

& - 5.910116E-2 5* P3 + 3.639098E-27*P4 - 6.694850E-30*P5 

HVIS = Cl + C2*T + C3*T**2 + C4*T**3 + C5*T**4 + C6*T**5 
HVIS = T*( T*( T*( T*( T*C6 + C5) + C4) + C3) + C2) + Cl 

CALCULATE XENON DYNAMIC VISCOSITY (1 bm/hr-ft) 

INPUT: T = TEMPERATURE (deg. F) (-10 < T < 2000) 

P = PRESSURE (psia) (14.51 < P < 290.1) 

Cl = 4.877915E-02 + 8.373816E-06*P + 1 .661438E-08*P2 

C2 = 1.000932E-04 + 1 . 584259E-09*P - 1 . 335857E- 10*P2 

C3 = - 1 . 397578E- 08 - 2 . 113691E- 11*P + 3 . 380712E- 13*P2 
C4 = - 4 . 222308E- 12 + 2 . 842605E- 14*P - 3 .811784E-16*P2 
C5 = 4.001660E-15 - 1 . 547142E-17*P + 1 . 955617E- 19*P2 

C6 = - 8.303670E-19 + 3 . 027289E - 20*P - 3.717919E-23*P2 
C 

C XVIS = Cl + C2*T + C3*T**2 + C4*T**3 + C5*T**4 + C6*T**5 
XVIS = T*( T*( T*( T*( T*C6 + C5) + C4) + C3) + C2) + Cl 
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c 

VIS1 = (1.0 + SQRT (HVIS/XVIS) * (XMW/HMW)**0.25)**2.0 / 

+ ( 2.82843*SQRT(1.0 + HMW/XMW)) 

VIS2 = V I S 1 *XV I S/HV I S* ( HMW/XMW ) 

C MIX VISCOSITY, (lbm/hr-ft) 

VS = HVIS/(1 .0+VISl*(MW-HMW)/ (XMW-MW)) + 

+ XVIS/(1 .0+VIS2*( XMW-MW)/ (MW-HMW)) 

C 

C MIX PRANDTL NUMBER, He-Xe 

PR = VS*CP/TK 
RETURN 
END 

C.pa 

SUBROUTINE XNAK(T, CP, DN, TK ,VS) 

C** THERMAL PROPERTIES OF NaK LIQUID 
C** T - INPUT TEMPERATURE (deg-R) 

C** CP - SPECIFIC HEAT (Btu/lbm-R) 

C** DN - DENSITY (lbm/cu-ft) 

C** TK - THERMAL CONDUCTIVITY (Btu/hr-ft-R) 

C** VS - DYNAMIC VISCOSITY (lbm/hr ft) 

IMPLICIT REAL*8 (A-H,K-Y) 

CP = 0.26478 -0.000089*T +4.093060E-08*T**2.0 -4 . 532164E- 1 2*T**3 . 0 
DN = 58. 54299- (0.008208*T) 

C** VS - DYNAMIC VISCOSITY (lbm/ft-s) 

VS = 0 . 000822-1 . 142435E-6*T+6 . 125737E- 10*T**2 .0- 1 . 13018E- 13*T**3 . 0 
C** VS - DYNAMIC VISCOSITY (lbm/hr ft) 

VS = VS*3600.0 

TK » 7. 313351+0. 013983*T -7.660423E-06*T**2.0 +1 . 189370E-09*T**3 .0 

RETURN 

END 


SUBROUTINE TAC 

C **** TAC is checked-out and final on October 6, 1992 

IMPLICIT REAL (A-H) 

IMPLICIT INTEGER (I-J) 

IMPLICIT REAL (K-Z) 

REAL JCON 

CHARACTER*10 GAS(2) ,CYCDES(8) ,TITLER(8) ,TVAR(18) , 

& COMPTYPE , TURBTYPE , CLNTTYPE 
CHARACTER*20 GENTYPE, INTTYPE 

CHARACTER*64 ERRORT , ERRORC , ERRORR , ERRORG , ERRORF , WARN I NGT , WARN I NGC , 
& WARN I NGR , WARN I NGG 

COMMON/DI AGNOS/ERRORT, ERRORC, ERRORR, ERRORG, ERRORF, WARNINGT, 

& WARN I NGC , WARN I NGR , WARN I NGG 

COMMON/OUTP/MASSTOT , MASSTAC , RECLC , RECLOA , RECH , RECW 
COMMON/DUCT/ MDCTTOT, MASSDCT(6) ,DIADUCT(6) 
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COMMON/HSACALCS/ QHSA , MASSHSA , DP9 

COMMON/CONF IG/COMPTYPE , TURBTYPE , GENTYPE , INTTYPE , CLNTTYPE 

COMMON/ALTERNTR/DGENRTR , DGENSTR , LGENTOT , MASSGEN , T I PSPDG , COE , 

& ETAGEN , COOLING , WCLNT , VOLTAGE , KVA , GENASP , TINCLNT, TOUTCLNT , 

& CPCLNT, LIFETIME 

COMMON/AERODYN/ETACOMP,COMPDIA,UTIPC,RADHC, RADIO, 

& RADNC , ANSQC , ANSQCL, COMPSS , I STGC , ETATURB , TURBDIA, UT I PT , 

& RADHT , RAD1T , RADNT , ANSQT , ANSQTL , TURBSS , I STGT 

COMMON/OPTIM/ VAR(18) ,TVAR, IPRINT 

COMMON/ FLU I D/ GAS , GAMMA , MOLWT , CP , PRNDTL 

COMMON/TITLE/ CYCDES,TITLER 

COMMON/LOSS/ QL0SS8, QLOSS9 , QLOSSIO , QLOSS13, FCTQ8, FCTQIO, FCTQ13 

COMMON/CYCLE/TEMP ( 1 7 ) , PRESS ( 1 7 ) , FLOW ( 1 7 ) , PR( 1 7 ) , BETA, COMFLO , 

& PRC, EFFC, EFFT, EFFR, EFFA, XBLC , XBLT, SPEED, POWER, PWRFCTR, 

& DPOP6,DPOP7,DPOP8,DPOP9,DPOP10,DPOP13,DPOP14,DPOP15, 

& DPOP16,DPOP17,NETSP,GROSSEP, EFFCYCLE, WINDAGE 

COMMON/GASBRG/BRGLOSS 

COMMON/RECUP/ DPOPREC , UAML , UAMH , DPML , DPMH , 

& PREXP,NFINL,TFINL,SPACEL,LEQL,ROFINL,KFINL,NFINH,TFINH,SPACEH, 

& LEQH , ROF I NH , KF I NH , TPLATE , ROPLAT , TBRAZE, ROBRAZ , 

& SIGNAL , ALPHAL , AF I NL , APLATL , HDL , S I GMAH , ALPHAH , AF INH , APLATH , HDH , 

& PITCH, MASSREC 

COMMON/MASSES/MASSCMP , MASSTRB , MWHLC , MWHLT , MSFTC , MSFTT , MCASEC , 

& MCASET , MDI AC , MDIAT 

COMMON/CONST/ P I , RU , GO , JCON , RZERO 

RHOTZM=.37 

RHOTI=. 164 

**** This routine was formulated by Allied-Signal. It predicts 

TAC mass based on dimensional and thermodynamic values for both 
axial and radial based machines. Mass includes compressor 
turbine, and generator masses with allowances for packaging and 
**** structural mass. 


IF (COMPTYPE.EQ. 'AXIAL ') THEN 

C **** Mass estimate for an axial compressor with dimensions predicted 
C **** by Subroutine AXCOMP; All Ti alloy construction assumed. 

UHUBC=UTIPC*RADHC/RAD1C 

AR=2. 

MWHLC=0 . 

CXSUM=0 . 

HSUM=0. 

C **** Compute and sum the wheel masses based on GFSD estimate algorithms 
DO 100, 1=1 , ISTGC 

DTIPC=2 ./ 12 . * ( RADI C+ ( RADNC - RAD1C ) * (FLOAT ( I ) - . 5)/FLOAT ( ISTGC ) ) 
H=DTIPC*12./2. -RADHC 
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c 

c 

c 

c 


c 

c 


c 

c 

c 

c 


c 

c 

c 


CX=MAX(.5,H/AR) 

CXSUM=CXSUM+CX 

HSUM=HSUM+H 

IF (UHUBC**2.LT. 750000.) THEN 

MWH LC=DT I PC**3* ( 1 . 7 E - 5*UHUBC**2 -2.1) +MWHLC 

ELSE 

MWHLC=DT I PC**3* (8 . 5E - 5*UHUBC**2 -53.4) +MWHLC 
END IF 

WRITE (*,445) I , ISTGC,UTIPC,RADHC,RAD1C,RADNC,MWHLC,DTIPC,UHUBC 
WRITE 61,445) I , ISTGC,UTIPC,RADHC,RAD1C,RADNC,MWHLC,DTIPC,UHUBC 

445 FORMAT (' I , I STGC , UT I PC , RADHC , RAD 1 C , RADNC , MWHLC , DT I PC , UHUBC ' 
&/lX,2I3,3E12.5/lX,5E12.5) 

100 CONTINUE 

CXAVG=CXSUM/FLOAT ( ISTGC ) 

HAVG=HSUM/FLOAT(ISTGC) 

**** Estimate the shaft mass 
**** Compue blade heights 
TAU=50000. 

T0RQUE=FL0W(1)*CP*(TEMP(2) -TEMP(l) )*JCON/ (SPEED*P 1/30 . ) 

RSHAFT= ( 2 . *TORQUE* 1 2 . / ( P I *TAU ) ) ** . 3333 

MSFTC=RHOTI*(PI*RSHAFT**2)*CXAVG*(9.+3.*FLOAT(ISTGC-l)+12. ) 

WRITE (*,446) CXAVG , HAVG , TORQUE , RSHAFT , MSFTC 
WRITE (61,446) CXAVG, HAVG, TORQUE, RSHAFT, MSFTC 

446 FORMAT (' CXAVG, HAVG, TORQUE, RSHAFT, MSFTC'/1X,5E12. 5) 

**** Compute case mass 

LCASE=CXAVG*( 15 . +3 . * FLOAT ( ISTGC- 1 ) ) 

RCAS E= ( RADNC+RAD 1C )/2 . 

TCASE-MAX ( . 1 , ( PRESS ( 1 ) +PRESS ( 4 ) ) *RCASE/ ( 2 - *50000 . ) ) 

VCASE=2 . *PI* ( RCASE+TCASE/2 . )*LCASE*TCASE 
MCASEC=1 . 15*VCASE*RH0TI 
WRITE (*,447) LCASE , RCASE , TCASE , VCASE , MCASEC 
WRITE (61,447) LCASE, RCASE, TCASE, VCASE, MCASEC 

447 FORMAT (' LCASE, RCASE, TCASE, VCASE, MCASEC 7 IX, 5E1 2. 5) 


C **** Compute diaphragm mass 

V0L1 =2 . *PI*RADNC* . 1* (CX+ . 8+2 . *1 . ) 

VOL2=2 . *PI*RADHC*(CX+H)*.2 
V0L3=2.*PI*RADHC*(CX+1 . )*CX/5. 

A4=( RADHC- RSHAFT )*CX/8. 

R4=RSHAFT+ ( RADHC - RSHAFT ) /2 . 

V0L4=2 . *PI*A4*R4+2 1 . /8 . *CX**2* (RADHC -RSHAFT) 

VOL5=2 .*PI*RSHAFT*(CX+1 . )*CX/8. 
MDIAC=RHOTI*(VOLl+VOL2+VOL3+VOL4+VOL5) 
MASSCMP=MWHLC+MSFTC+MCASEC+MDIAC 
C WRITE (*,448) V0L1 ,V0L2, VOL3,VOL4,VOL5,MDIAC,MASSTRB 

C WRITE (61,448) VOL1,VOL2,VOL3,VOL4,VOL5,MDIAC,MASSTRB 

C 448 FORMAT (' V0L1,V0L2,V0L3,V0L4,V0L5,MDIAC,MASSTRB'2(/1X,5E12.5)) 


C **** M ass estimate for an radial compressor with dimensions predicted 
c **** by Subroutine RADCOMP; Based on average of GFSD designs. 
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MASSCMP=30 . * ( 1 . +5 . ) * ( COMPDI A/1 2 . ) **3 
END IF 

IF (TURBTYPE.EQ. 'AXIAL ') THEN 

C **** Mass estimate for an axial turbine with. dimensions predicted 
C **** by Subroutine AXTURB; All refractory alloy construction assumed. 

UHUBT =UT I PT*RADHT/ RADNT 
AR=2. 

MWHLT=0. 

CXSUM=0 . 

HSUM=0. 

C **** Compute and sum the WHLT masses based on GFSD estimate algorithms 
DO 110, 1=1 , ISTGT 

DTIPT=2./12.*(RAD1T+(RADNT-RAD1T)*(FL0AT(I) - .5)/FL0AT( ISTGT) ) 
H=DTIPT*12./2. -RADHT 
CX=MAX(.5,H/AR) 

CXSUM=CXSUM+CX 
HSUM=HSUM+H 

IF (UHUBT**2.LT. 750000.) THEN 
MWHLT=DTIPT**3* ( 1 . 7E - 5*UHUBT**2 -2.1) +MWHLT 
ELSE 

MWHLT=DTI PT**3* (8 . 5E - 5*UHUBT**2 -53.4) +MWHLT 
END IF 

WRITE (*,345) I, ISTGT, UTIPT, RADHT, RAD1T, RADNT, MWHLT,DTIPT, UHUBT 
WRITE (61,345) I , ISTGT, UTIPT, RADHT, RAD1T, RADNT, MWHLT,DTIPT, UHUBT 

345 FORMAT (' I, ISTGT, UTIPT, RADHT, RAD1T, RADNT, MWHLT,DTIPT, UHUBT ' 
&/lX,2I3,3E12.5/lX,5E12.5) 

110 CONTINUE 

CXAVG=CXSUM/FLOAT( ISTGT) 

HAVG=HSUM/ FLOAT (ISTGT) 

**** Estimate the shaft mass 
**** Compue blade heights 
TAU=50000 . 

T0RQUE=FL0W( 10 ) *CP* (TEMP ( 10) -TEMP( 12) )*JC0N/(SPEED*PI/30 . ) 

RSHAFT= ( 2 . *T0RQUE* 1 2 . / ( P I *TAU ) ) ** . 3333 

MSFTT=RHOTZM* ( P I *RSHAFT**2 ) *CXAVG* ( 9 . +3 . * FLOAT ( ISTGT- 1 )+l 2 . ) 

WRITE (*,346) CXAVG , HAVG , TORQUE , RSHAFT , MSFTT 
WRITE (61,346) CXAVG, HAVG, TORQUE, RSHAFT, MSFTT 

346 FORMAT (' CXAVG, HAVG, TORQUE, RSHAFT, MSFTT'/1X,5E12. 5) 

**** Compute case mass 

LCAS E=CXAVG* ( 1 5 . +3 . *F LOAT ( I STGT - 1 ) ) 

RC AS E=(RADNT+RADlT)/2. 

TCASE=MAX ( . 1 , ( PRESS ( 1 0 ) +PRESS (12)) *RCAS E/(2. *20000 . ) ) 
VCASE=2.*PI*(RCASE+TCASE/2.)*LCASE*TCASE 
MCASET=1 . 15*VCASE*.286 

WRITE (*,347) LCASE , RCASE ,TCASE , VCASE ,MCASET 
WRITE (61,347) LCASE, RCASE, TCASE, VCASE, MCASET 

347 FORMAT (' LCASE, RCASE, TCASE, VCASE, MCASET '/1X,5E12. 5) 
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C **** Compute diaphragm mass 

V0L1=2.*PI*RADNT*. l*(CX+.8+2.*l . ) 

VOL2=2.*PI*RADHT*(CX+H)*.2 
V0L3=2 . *P I*RADHT* ( CX+1 . ) *CX/5 . 

A4= ( RADHT- RSHAFT ) *CX/8 . 

R4=RSHAFT + ( RADHT - RSHAFT ) / 2 . 
V0L4=2.*PI*A4*R4+21./8.*CX**2*(RADHT-RSHAFT) 

V0L5=2 .*PI*RSHAFT*(CX+1 . )*CX/8. 
MDIAT=RH0TZM*(V0L1+V0L2+V0L3+V0L4+V0L5) 
MASSTRB=MWHLT+MSFTT+MCASET+MDIAT 
WRITE (*,348) V0L1 , VOL2 , VOL3 , VOL4 , VOL5 , MDIAT , MASSTRB 
WRITE (61,348) VOL1 ,VOL2,VOL3,VOL4, VOL5, MDIAT, MASSTRB 
348 FORMAT (' VOL1 ,VOL2,VOL3,VOL4,VOL5,MDIAT,MASSTRB'2(/lX,5E12.5) ) 

ELSE 

C **** Mass estimate for an radial turbine with dimensions predicted 
C **** by Subroutine RADTURB; Based on average of GFSD designs. 

MASSTRB=46 . *(RHOTZM/ . 286+5 . )*(TURBDIA/12 . )**3 

ENDIF 

C **** Base weight of the TAC = MASSTRB + MASSCMP + MASSGEN 
MASSTAC=MASSCMP+MASSTRB+MASSGEN 

C **** Allowing an additional 20% for bearing system and interface: 

MASSTAC=MASSTAC*1 . 2 

RETURN 

END 
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CYCSINP - Input data file for cycle data 


500 kWe 
1 

RADIAL 

XENON 

5. 

Tl, K 
DP/P8 
375. 

.005 


:BC Test 

Case for 

NASA T018 

Code - 5 December 92 


500. 

.9 

1400. 

2.5 

1144.44 


RADIAL 

RING WOUND TPTl 1 

PMG TRANSFORMER 

DOWTHERM 

HELIUM 

.5 

511.11 

522.22 

•0 

.0 

.005 

.01 

.01 




PRC 

MW 

ER 

NSC 

N, RPM 

DP/P6 

DP/P9 

DP/P10 

DP/P13 

DP/P15 

DP/P16 

DP/P17 

1.8 

20. 

.85 

42. 

28000. 

.005 

.002 

.003 

.003 

.005 

,005 

.005 


DP/PREC 

.02 
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RECJINP - Recuperator input data file 


Plate Fin Recuperator; Kays & 
.615 .15 .15 

6.3 .0127 .3175 

7.87 .0127 .254 

.0254 
.00381 


London Matrix, Exponent*. 615 
.15 .15 

.1524 8.03 

.1206 8.03 

8.03 

8.86 


22.14 

22.14 
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IHXSINP - Intermediate heat exchanger input data file 

1 226.8 1166.7 1111.1 .102 6.0 

14.4 .025 8.34 8.34 1.27 
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DUCTS INP - Ducting system input data file 


15.0 

15.0 

15.0 

60.0 

60.0 

60.0 

0.102 

0.102 

0.102 

4.43 

8.30 

8.30 

0.00 

100.0 

100.0 

0.0013 

0.0013 

0.0013 

5.54 

5.54 

5.54 

0.001 

0.001 

0.001 


15.0 

15.0 

15.0 

60.0 

60.0 

60.0 

0.102 

0.102 

0.102 

8.30 

4.43 

4.43 

100.0 

0.0 

0.0 

0.0013 

0.0013 

0.0013 

5.54 

5.54 

5.54 

0.001 

0.001 

0.001 
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Example Output [PROG$OUT] 
500 kWe, Axial Case 
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500 kWe CBC Test Case for NASA T018 Code - 5 December 92 


****************************************************** 


*** PARAMETRIC DATA 
Tl, K .37500E+03 

ER .00000E+00 

DP/P6 .50000E-02 

DP/P9 . 11000E-01 

DP/P15 . 00000E+00 


PRC .30000E+01 
NSC .42000E+02 
DP/PREC .20000E-01 
DP/P10 .60000E-02 
DP/P16 .11000E-01 


MU .20000E+02 
N, RPM .25000E+05 
DP/P8 .00000E+00 
DP/P13 .70000E-02 
DP/P17 .60000E-02 


*** MASS and EFFICIENCY DATA ********************************************* 
TAC MASS, KG 
DCTNG MASS, KG 
CMP MASS, KG 
GEN MASS, KG 
CYC EFF 
ETA TURB 
BETA 

*** DIMENSIONAL DATA **************************************************** 
***** AXIAL COMPRESSOR GEOMETRY 

cm 


221. 

117. 

REC MASS, KG 

0 . 

53. 

TRB MASS, KG 

54. 

78. 

TOT MASS, KG 

221. 

.20364 

ETA COMPR 

.81346 

.93434 

ETA ALT 

.96620 

.95486 

GROSS EP kWe 

500.0 


NO STAGES 7 HUB RAD, cm 11.065 
TIP R DCH,cm 12.419 AN A 2C .180E+11 
SPEC SPD 42.0 MASS, kg 52.7 
***** AXIAL TURBINE GEOMETRY 


NO STAGES 2 

TIP R DCH,cm 15.851 

cpr r cpn 44 4 

***** GENERATOR GEOMETRY 

Rotor OD, cm 11.344 

Rotor L/D 2.50 

kVA 555.6 

Clnt Tin, K 511. 

TYPE= RING WOUND TPTL PMG 

COOLANT= DOWTHERM A 


cm 


HUB RAD, 

AN A 2T 
MASS, kg 
AND PARAMETERS 
Stator 0D,cm 
Mass, kg 
Pwr Factr 
Clnt Tout, K 

INTERFACE 


12.411 

.296E+11 

53.8 


TIP R INL,cm 
AN A 2LIMIT 


TIP R INL,cm 
AN A 2LIMIT 


13.470 

.405E+11 


14.741 

.385E+11 


22.895 Length, cm 32.792 

77.55 Tip Spd m/s 148. 

.900 Volts, 1-1 1400. 

522. Clnt Flow, kg/s 1.21 

TRANSFORMER 


*** THERMODYNAMIC DATA ****************************************************** 

TEMPERATURES, K 

375.00 

629.40 

629.40 

629.40 

629.40 

629.40 

TEMPERATURES, K 

629.40 

626.81 

1144.44 

1139.26 

1139.26 

773 . 53 

TEMPERATURES, K 

768.35 

768.35 

768.35 

375.00 

375 . 00 


PRESSURES, KPA 

253.28 

506.56 

506.56 

759.84 

759.84 

756.04 

PRESSURES, KPA 

756.04 

756.04 

747.73 

743.24 

501.35 

259.46 

PRESSURES, KPA 

257.64 

257.64 

257.64 

254.81 

253.28 


PRESS RATIOS 1 

.000000 1 

.000000 1 

.000000 

1.000000 

1.000000 

.995000 

PRESS RATIOS 1 

.000000 1 

.000000 

.989000 

.994000 

1.000000 

1.000000 

PRESS RATIOS 

.993000 1 

.000000 1 

.000000 

.989000 

.994000 


FLOW RATES, KG/S 

4.57 

4.57 

4.57 

4.57 

4 . 57 

4 . 57 

FLOW RATES, KG/S 

4.57 

4.57 

4.57 

4.57 

4 . 57 

4.57 

FLOW RATES, KG/S 

4.57 

4.57 

4.57 

4.57 

4.57 


*** PARASITIC LOSSES 

******************************************************** 

THERMAL LOSSES (kW] - 

HSA 

.00 

THTML 

8 

12.28 



THRML 10 

-24.55 

THRML 

13 

24 . 55 


SHAFT LOSSES [kW] - 

TOT BRGS 

10.00 WINDAGE 

.64 
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( 2 / 2 ) 


500 kWe CBC Test Case for NASA T018 Code - 5 December 92 

******* Quoting Configuration ****************** 

Duct 1 diameter, cm = 20.19038 Length, cm= 302.85570 

Duct 2 diameter, cm = .00000 Length, cm- .00000 

Duct 3 diameter, cm = 22.54260 Length, cm- 225.42600 

Duct 4 diameter, cm = 33.20548 Length, cm= 332.05480 

Duct 5 diameter, cm = .00000 Length, cm- .00000 

Duct 6 diameter, cm = 28.48324 Length, cm- 284.83240 


Duct 1 velocity, m/s= 49.09991 Weight, kg- 10.90493 

Duct 2 velocity, m/s- .00000 Weight, kg- .00000 

Duct 3 velocity, m/s- 72.78912 Weight, kg- 28.93446 

Duct 4 velocity, m/s- 65.33964 Weight, kg- 62.40010 

Duct 5 velocity, m/s- .00000 Weight, kg- .00000 

Duct 6 velocity, m/s- 43.82466 Weight, kg- 14.44725 

WARNING, GAS VELOCITY IN DUCT 3 EXCEEDS 60 M/S 
WARNING, GAS VELOCITY IN DUCT 4 EXCEEDS 60 M/S 


IHX Design Parameters 

XDPSHELL1 - shell side pressure drop, kPa 
ANTUBES1 - number of heat exchanger tubes 

XDPTUBE1 - tube side pressure drop, kPa 

XD0TL21 - diameter of the shell, cm 
XALSHEL1 - length of the shell, cm 
XAMSHELL1 - mass of the shell, kg 

XAMPLATES1 - mass of the plates, kg 

XAMTUBES1 - mass of the tubes, kg 

XAMINSUL1 - mass of the insulation, kg 

XAMHEADS1 - mass of the heads, kg 

XAMTSHT1 - mass of the tubesheets, kg 

XAMSTRT1 - structure and brackets, kg 
XANETMASS1 - net shell and tube unit, kg 
XXMNHEX1 - mass of tubeside fluid, kg 
XHSHELL1 - shell side h, W/m2-K 

AFRIC1 - friction factor 

XUNEW1 - overall U, W/m2-K 

RETUB El - tubeside Reynolds number 

XTHC1 - tubeside h, W/m2-K 

PRATIO - tube pitch ratio 


7.949 

195. 

3.289 

37.3 

261.0 

70.2 

3.9 

158.6 

8.2 

8.8 

8.8 

28.5 

271.4 

43.1 

1631.4 

.091 

1422.72400 

26973.310 

52423.4 

1.8 
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Appendix E 

Example Output [PROG$OUT] 
500 kWe, Radial Case 
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500 kVe CBC Test Case 5 December 92 (July 30 , 1993 test case) ( 1 / 4 ) 

Plate Fin Recuperator; Kays & London Matrix, Exponent *. 615 


eg m rg 
??? 
sss 
sss 

O CO o 
eg rg in 


eg eg 
o o 

ss 

ss 

o o 
K> in 


* CO 

OC CL 

I* I 

£ z o i 


r* «“ * 


K> h- 

CL CL 


«- N »*■ 

o o o 

sss 

sss 

co in o 
«— *4" CM 


eg rg 

o o 

ss 

ss 

o o 
m in 


* CL 

* oov 

« ttWQ. 
J CL Z O 

« 

* 

* KION 

i ??? 
<SSS 

5888 
o F» in o 
ro co in 

(j • i • 


o o 

nr— nr- 
CL CL 
•s N. 
CL CL 
O Q 


S S 

88 



! 2 £s: 

* c* cl cl cl 
. uj o o o 




UJ o 

TJ O CO Cl 

a m 

.V) * » 

£3 K 5 K K ^ S 

* UHQ.ZU<*- 

* < U I UJ >- 

« P oU uuuia 


g 

o 


UJ 

CL 


eg 

hO 

*4- 


« 


s 


CO 

fel 


-M W) <6 
-I P- > 

O' o 

ru R 

eg 


» 

o» 


c oc 

— UJ 

°5 

o 


ss 

I- M 

UJ 

5 — 
S' 


: 5 


8 

^ O 


32 


< O *IL 
a. ** m 
m tn t_ 


ac a. a a 2 — 

►= ~ Suixi cj 


uj i 


g cm 


UJ o 
>JtoaO"0 
w »S • « 
ot o> uj eg r- 
uj rvj 


: K» 


oc *6 in • 
i-k • in 
uj • rg in 

5 £ "* 


_i 5 S 

|° _ 

24 S*“< 6 

(/> H **- 

xq * co q 

^ j < w ? < *2 


s 

s 



c 

u 

N- O 

a-E 

a K c; 

CL < 

ii 


e- m 

-o PO 

SR 

m o* 


CO O' 

SS 
SO C 2 


o o 

88 

gi 


aa 


K^OWfMCOOO 

> 0 ' 00 tnc 0 »-^gg 

OT-inoe- 0'00 

0 ' 4 ‘F^«”'Orooo 

IAi-KWOMOO 


o -O < 'O * 
O 'O 'O 'O ♦ 
o • • * * 
■o ^ *o * 


r 


^&>oro' 0 *-oo 

' 0'0 0 !AsfC>gP 

o*-inoininos 

O'fSr-in^OO' 

m^-fO' 4 -ejKioO' 


o 'O < *G * 

8 • ■ ■ I 

8 ‘““ 


<0 10 0 11 

* 
« 
« 
« 
* 

NginogCloooiOiO'C* 

OgocOinOpopOOiOi 

o o • • ■ * 

s^afJSK sis' 0 '°'°i 

in«-incoKjroooi^ « 


SNinoeosooi 
ocooco(\jg op i 
• o O ( 

ssasissss 

momcojnrooo' 


oo> coooKin o«- 

O^Ot-r-OOin 

O' 

* t O fO ^ 2 J 2 ; 


c m cd 0 m 


pnKjpn' 


5 < < < 

Z - * • CL CL CL 

>-wwwic^yv)S 2 
O uj uj uj O O 

£ 5 5 5 W* W % wT K K 

SS 55 SSS 2 S 

KUJUj£iii(A(A 


aOtfi.wwwMW 

XlXUJUJUJlllUJ 

UJ uj uj oc pc OC 

(- 1- H C. £ o. 


I iiO 'O 'O * 

1 O O O « 

_ ! o o o « 

CO « 

°i J 
« 
« 

O "O 'O «p ♦ 

o <o 'O « * 
o • • • « 
s o o o ♦ 

s : 


M 

(A V) (A O 
"v. ^ ^ -J 
CJ (90 
Z Z Z U 

g . - .P 

m (A (A ( 0 •— 
h- UJ UJ UJ (A 

25552 

oc ceae < 

«i a. 

1288 . 


5 5 


co 

UJ 

(A CO 

CO UJ 

O CO 

" J o 

J —I 

2 - 


Q. u. U. u. « t— 


150 




<_> o. N- 

«c ac «- in 

q» D m rvi 

|/> w • 


CJ K1 K> in 

ac 5 0008 


U. U. ^ Of 
Q. Ill 
ID til »- 

SSS* 

V) Wh 

I— Ui 


151 




152 



■"s. 

*4- 


8 : 


i i 


I 


£ 

S 


t 

t 

8 I 


8 

0 

t 

t 

1 

* 


rocomONN 
NO 35 o Or* n 

CKKSaS 

w in o' <> 
•- eg in ki rg r\J 

mill 

r r r x r x 

4-» 4-> 4^ 4-* 4-* 4J 

rirrri 


g o h- fO f\j co 

K1 K> sf Nt 

S^SSS25 

o* o* ro h- o o 

(NJ ^ CO (M s m 


rnmco^'O K 

SSRfcSK 

1^- f\l co ro »— Q 

sf roS o w « 


II II II If II II 
010)0)010)0) 


s^fesas 

^(MOOfOin 
<> <\J v* K> CO ** 
00 O in in fM o 

nNON)NCp 


>Q • CM «- 
k 5 r-m • 
in o« o in 
■ *- ■ K> 

*sf eg 


a 

£.8 « 

*2Sz 


a i- - o 
o « a 
t- g> o - 

* g-fe- 

Of o 

U O O f 
3 X t « 
a O 3 

8 a o 

M £ 


in'-'Orvjnj^NtB'OO'OipQpO'S 

• •••••••••• On O pw • « 

iina^iNO'O'NnNino* “ 


CM «- «- 


a 


o>»-«- 

in eg >r 
"4- Kl 

o eg 


3 o> c a a — *d 

O) a 0*0 t» 4-* <M £ — 

«* -* ^"-^0 033^ 

- <*4-* O .* — • I 

— - a - « * f U (H-INI 

xi +* ■© : 


“l*s 


o — o a 

< 0 f*' 3 Co' 3 — ~ ~ o '£ o ^ 4 - 

2 " m 2x?Si|* 2 

3 0® 


JjjjiJ 

T> TJ TJ -D T3 *0 
r- cvi m g m 'O 


3 3 3 3 3 3 

O O Q O O O 


^ m- — a 


8 2 3 8 2 8 

1111*2 
*- eg K> *4- in 

4-> 4J 4^ 4-» 4-» 4-» 

333333 

o q o o o a 


8^ 

0 -Jr-«- 

J WUJr 

x iu iu a cm 
x z n 5 j 

~S£2£:5 

6588 


J JhUJ33hH<X-l «- 

xxJ3ziDaH»-xuj03ffi«-M 

-jzZzzzzxzZmo 0 Z P X < 
SxxxxxxxS!!x<Szxi 


gin a 

rJ rvl ^ 

eg in t- 

ro eg «- 


o 

a 

3 

OI 

H- 

h h n n n h 

II II II tt II. II 

QJ ~6 H- 1) ^ U 4^ 4* 4* 4« 4>) 

V*r 0X1 L O 

O a *r-0 H- H- H- H- H- *•- 

O — * -m "D Z) U 

p • § -* -8 -8 


o> a 

+-* 

8 

N- 

S 

O 

2 

B 6 e S 6 8 

L L L t. U L 

4-» 4-» 4^ 4-» 4-» 

i-< II O 4-* ~ 

u — » J5 o e 9 a a a a aa 

^llliiiiiii 

o a — » 4-* io a a 
3 a — » o t- o O o 

it 8.ST $-9-9-9 

acEaH-04-*4-»4-» 

_j 

00 

< 

►- 

a 

2 * 
o> a 
m. t_ a 

<£ £ 


a « 
n i. ^ 


<28 
H IX Q 


153 


Power Conversion System, kg 746.704 




IVIASA Report Documentation Page 

1. Report No. 2. Government Accession No. 

NASA CR- 191135 

3. Recipient’s Catalog No. 

4. Title end Subtitle 

Brayton Power Conversion System Parametric Design 
Modelling for Nuclear Electric Propulsion 

5. n*nort Date 

November 1993 

Rockwell International 

7. Authors) 

Thomas L. Ashe, Allied-Signal Aerospace Company 
William D. Otting, Rocketdyne 

8. Performing Organization Report No. 

None 

10. Work Unit No. 

SL Performing Organization Name end Address 

Rocketdyne Division 
Rockwell International Corporation 
6633 Canoga Avenue 
Canoga Park, CA 91303 

11. Contract or Grant No. 

NAS3- 25808 

13. Type of Report and Period Covered 

Contractor Report 
Final 

12. Sponsoring Agency Name and Address 

National Aeronautics and Space Administration 
Lewis Research Center 
21000 Brookpark Road 
Cleveland, OH 44135 

14. Sponsoring Agency Code 

15. Supplementary Notes 


16. Abstract 


The parametrically based closed Brayton cycle (CBC) computer design model was 
developed for inclusion into the NASA LeRC overall Nuclear Electric Propulsion 
(NEP) end-to-end systems model. The code is Intended to provide greater depth 
to the NEP system modelling which is required to more accurately predict the 
Impact of specific technology on system performance. The CBC model is 
parametrically based to allow for conducting detailed optimization studies and 
to provide for easy integration into an overall optimizer driver routine. The 
power conversion model includes the modelling of the turbines, alternators, 
compressors, ducting, and heat exchangers (hot-side heat exchanger and 
recuperator). The code predicts performance to significant detail. The system 
characteristics determined include estimates of mass, efficiency, and the 
characteristic dimensions of the major power conversion system components. These 
characteristics are parametrically modelled as a function of input parameters 
such as the aerodynamic configuration (axial or radial), turbine inlet 
temperature, cycle temperature ratio, power level, lifetime, materials, and 
redundancy. 


17. Key Words (Suggested by Authors)) 

Nuclear Electric Propulsion, Closed 
Brayton Cycle, Parametric Computer 
Modelling 

18. Distribution Statement 

Unclassified - Unlimited 


19. Security Classif. (of this report) 

Unclassified 

20. Security Classif. (of this page) 

Unclassified 

21. No of pages 

22. Price* 


NASA raw 1«M OCT K . For saig by {fjg National Technical Information Service, Springfield, Virginia 22161 



